Select Code to Download

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

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