Select Code to Download

my %options = (
    one => sub {
...
        print "Default\n";
    },
);

if( exists $dispatch{ $action } ) {
     $dispatch{ $action }->();
...
else {
    $default->();
}

&{ $dispatch{ $action } || $default }();

while ( chomp( my $opt = <STDIN> ) ) {
    &{ $options{ $opt } || $options{ '' } }()
        or last;
}