Select Code to Download

use FindBin;
use Win32;
...
print "FindBin: $FindBin::Bin\n";
print "Win32:   $longpath\n";
print "Cwd:     ", cwd(), "\n";

c:/dev/temp/monks $ perl wdir.pl
FindBin: C:/dev/temp/monks
Win32:   c:\dev\temp\monks\
Cwd:     c:/dev/temp/monks