use Win32;

my( $path, $filename ) = Win32::GetFullPathName( $0 );
my $longpath = Win32::GetFullPathName( $path );

print $longpath; # prints c:\dev\temp\monks\