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