use Win32::API;

$function = new Win32::API("kernel32", "GetCommandLine", '', 'P');

$string = $function->Call();

print "string[".length($string)."] = '$string'\n";