Select Code to Download

sub first {
  print "This is first\n";
}
...

dispatch('a');
dispatch('b');

package FOO;
sub first {
...
my $foo = new FOO();
$foo->dispatch('a');
$foo->dispatch('b');