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