use Win32::API;

sub GetShortPathName
{
   my $GetShortPathName = new Win32::API('kernel32', 'GetShortPathNameA', 'PPN', 'N');
   die "Can't import API GetShortPathNameA:\n$!" unless defined $GetShortPathName;
   my $longpath = shift;
   my $length = 1 + length $longpath;
   my $shortpath = ' ' x ($length);
   $length = $GetShortPathName->Call($longpath, $shortpath, $length);
   return substr($shortpath, 0, $length);
}