use strict; 
use warnings;
use Win32;
my $V_CurrDir;
unless ($V_CurrDir  = ( Win32::GetFullPathName( Win32::GetLongPathName( $0 ) ) )[0]) {
    die "$!";
}
print "$V_CurrDir";