#!/usr/bin/perl -w

use strict;
use Win32;

system(Win32::GetShortPathName('c:\Program Files\desktop.ini'));