require Win32;
Win32->import;

my $patharg = $ARGV[0];
print "ARGV: [$patharg]\n";

$path = "\"" . Win32::GetShortPathName($patharg) . "\"";
print "patharg: [$patharg]\n";
print "path: [$path]\n";

my $cmd = "$path\\disc";
print "Issuing cmd: [$cmd]\n";
my $op = `$cmd`;
my $ret = $?;
print "ret: [$ret], op: [$op]\n";

$cmd = "$path\\disc -v";
print "Issuing cmd: [$cmd]\n";
$op = `$cmd`;
$ret = $?;
print "ret: [$ret], op: [$op]\n"
####################