Select Code to Download

C:\test>junkjunkjunkjunkjunkjunkxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.bat
string[178] = 'perl -x -S junkjunkjunkjunkjunkjunkxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.bat  '

    case T_POINTER:
        ApiFunctionPointer = (ApiPointer *) ApiFunction;
...
        break;
...
        XSRETURN_PV(cReturn);

#!/usr/bin/perl -w
use strict;
...
Win32::API->Import("kernel32", "LPTSTR GetCommandLine()");

printf "\r%d : %s\t", $_, GetCommandLine() for 1 .. 1e6;