use FindBin;
use Win32;
use Cwd;

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

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