D:\>perl -MWin32 -e"print Win32::GetShortPathName(shift)" "C:\Program Files\Mozilla Firefox"
C:\PROGRA~1\MOZILL~1