Select Code to Download

sub routine
{ my $module = shift;
  my $routine = shift;
...
  my $return = &{Foo::Bar::$module::$routine}(@params);
  return $return;
}