Select Code to Download

perl -le 'sub scare { $_[0] = "boo!" } my $me; scare($me); print $me'

sub foo {
    my @args = @_;
    # ... do stuff ...  
}