>type a.pl
print "$0\n"

>perl a.pl
a.pl

>perl .\.\.\.\.\A.pL
.\.\.\.\.\A.pL