use warnings;
use strict;
use Win32::API;
use Data::Dump;

my $GetCommandLine = Win32::API->new("kernel32", "GetCommandLine", [], 'P');
( my $c = pack("a1024", $GetCommandLine->Call()) ) =~ s/\0*$//;
print $c, "\n";
dd $0, @ARGV;