use Cwd qw(abs_path);
print "I am ", abs_path($0), "\n";

##</code><code>##

C:\>path_test.pl
Cannot chdir to \\flash\it\NOC-TO~1\PATH_T~1.PL:No such file or directory at \\flash\it\NOC-TO~1\PATH_T~1.PL line 2