>perl ./a.pl
./a.pl running in Perl v5.14.0
Caller[1] is: ./a.pl

>perl .\a.pl
.\a.pl running in Perl v5.14.0
Caller[1] is: .\a.pl