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

[0] Perl> print $^X;;
C:\perl64\bin\perl.exe
^C

C:\test>cd \Perl64\bin
C:\Perl64\bin>.\p1.pl

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

[0] Perl> print $^X;;
C:\perl64\bin\perl.exe