Select Code to Download

use strict;
use warnings;
use FindBin;

print $FindBin::Bin, "\n"; # prints c:\dev\temp\monks\

use Win32;

...
my $longpath = Win32::GetFullPathName( $path );

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