C:\Perl64\bin>p1
[0] Perl> print $0;;
C:\Perl64\bin\p1.pl
[0] Perl> Terminating on signal SIGINT(2)

C:\Perl64\bin>.\p1.pl
[0] Perl> print $0;;
C:\Perl64\bin\p1.pl
[0] Perl> Terminating on signal SIGINT(2)

C:\Perl64\bin>cd \test

C:\test>p1
[0] Perl> print $0;;
C:\Perl64\bin\p1.pl