Select Code to Download

my %dispatch = (
  'sub_one' => \&sub_one,
...
  $a = shift;
  print "got to sub two $a\n";
}