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

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