Select Code to Download

sub somesub {
   my ($first, $second, @list) = @_
...
      # do something, possibly intelligent
   }
}

sub somesub_nocopy {
   my $first = shift;
...
      # do something, possibly intelligent
   }
}