my $short_path_dir = Win32::GetShortPathName($dir);
print $short_path_dir;