use Win32::GetCommandLine;

print "1..1\n";

my $string = Win32::GetCommandLine::wrap_GetCommandLine();

if($string =~ /perl/) {print "ok 1\n"}
else {print "not ok 1\n"}