use utf8; use Win32; $dir="Małretuzz"; print our $short_path_dir = Win32::GetShortPathName( "$dir" );