$ perl -MO=Deparse,p -e 'print our $short_path_dir = Win32::GetShortPathName( "$dir" );'
print our $short_path_dir = Win32::GetShortPathName("$dir");
-e syntax OK