That's a very sweet and 'robust' snippet.
I use this one more often:

#!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);
[download]

"cRaZy is co01, but sometimes cRaZy is cRaZy".
                                                      - crazyinsomniac