c:\test>perl ..\tmp\..\test\..\Perl64\site\.\lib\..\..\bin\p1.pl

Perl> print scalar Win32::GetFullPathName( $0 );;
c:\Perl64\bin\p1.pl