Select Code to Download

sub fooge
{
     my ($foo, $bar, @baz) = @_;
...

     # ...
}

sub fooge
{
     my ($foo, $bar) = (pop, pop);
}

sub blarg
{
     my ($foo, $bar, $bork) = @_;
...
          die "Apocalyptic end of blarg(@_)\n";
     }
}