Select Code to Download

sub foo { print 'bar' } 
$var = 'foo'; 
main->$var;

%subs = (
  'foo' => \&foo,
...
  # etc
);
print $subs{$var}->($arg1, $arg2);