Select Code to Download

sub this {
  return "this"; # Whatever
...
  return "that"; # Being simple here
}
# etc

my %action = (
  this => sub {return "this"},
...
if (exists $action{$in}) {
  $action{in}->();
}

sub ret_simple_returner {
  my $arg = shift;
...
}

my %action = map ret_simple_returner($_), qw(this that);