Select Code to Download

sub foo1 {
  my ($c, $d, $e, $f) = @_;
...
  my $which = $_[0] ? \&foo1, \&foo2;
  $which->(1, 2, 3, 4);
}