#!perl -w   
use strict;
use Win32;

my $filename = $0;
my $pathname1 = "$^X";
my $pathname2 = Win32::GetFullPathName($filename);

print Win32::GetLongPathName($pathname1);

print "\n";

print Win32::GetShortPathName($pathname1);

print "\n";

print Win32::GetLongPathName($pathname2);

print "\n";

print Win32::GetShortPathName($pathname2);

print "\n";

print Win32::GetShortPathName($0);