C:\test>junkjunkjunkjunkjunkjunkxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.bat
string[178] = 'perl -x -S junkjunkjunkjunkjunkjunkxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.bat  '

##</code><code>##

    case T_POINTER:
        ApiFunctionPointer = (ApiPointer *) ApiFunction;
        pReturn = ApiFunctionPointer();
        /* #### only works with strings... #### */
        cReturn = (char *) safemalloc(strlen(pReturn));
        strcpy(cReturn, pReturn);

        break;
...
        XSRETURN_PV(cReturn);

##</code><code>##

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

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