Select Code to Download

sub ksh_select(&@) {
  my $cr = shift;
...
    $cr->( $_ );
  }
}

ksh_select { print "You chose $_\n" } qw( foo bar quux );

# in this example, the user has choices to navigate around some struct
+ure.
my %dispatch = (
...
    ? $dispatch{$menu[$_]}->()
    : warn "Selection out of range!\n";
} @menu;