Select Code to Download

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

   # yadda yadda yadda
}

sub foo {
   print "$_\n" for @_;
}