use Win32;
    my $short= Win32::GetShortPathName($long);