Select Code to Download

%dispatch = (
foo => \&foo,
...
{
  $dispatch{$method}->();
}

package dispatch;
sub foo {}
...
{
  $ref->();
}