Help for this page

Select Code to Download

Select or download this

use Win32::API;

...
   $length = $GetShortPathName->Call($longpath, $shortpath, $length);
   return substr($shortpath, 0, $length);
}