print our $short_path_dir = Win32::GetShortPathName( "$dir" );

##</code><code>##

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

##</code><code>##

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