my $query = @ARGV
            ? CGI->new({ @ARGV })
            : CGI->new;


##</code><code>##

system $^X, 'foo.cgi', qw/ key value key value /;