use win32;

$path = "C:\\Test Path\\test file.bat";
$parameter = $ARGV[0];

unless ($bat_file = Win32::GetShortPathName($path)) {
	print "$bat_file - Path Problems in Setup for $path: $^E\n");
	exit();
}
$bat_file =~s /\\/\//g;
print "$bat_file\n";
system("$bat_file $parameter");