Select Code to Download

sub foo ($$$) {
  return "A: $_[0] B: $_[1] C: $_[2]\n";
...
push @arg1,@arg2,@arg3;

print foo(@arg1); # whatdoyoumeanthisdoesntwork!

sub funky(&$) {
  my $sub=shift;
...
}

funky {print $_} "yabbadabbadoo";