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