Obtain a switch/case behaviour in Perl 5

Question

Is there a neat way of making a case or switch statement in Perl 5?. It seems to me they should include a switch on version 6..

I need this control structure in a sc

Answer 1

print("OK : 1 - CANCEL : 2\n");
my $value = ;
SWITCH: {
    ($value == 1) && last(SWITCH);
    ($value == 2) && do {print("Cancelled\n"); exit()};
    print("??\n");
}