Select Code to Download

use feature qw(say switch);

my $data = 1;
...
    when (2) { two: say 'two' ;      }
    default  { say 'something else'; }
}

one
panic: goto at /tmp/test line 5.