[me@host]$ echo 'print "$0\n";' > /tmp/p
[me@host]$ perl /tmp/p
/tmp/p
[me@host]$