http://www.perlmonks.org?node_id=1111951


in reply to Re^2: Invoking a cgi script from another cgi script using system()
in thread Invoking a cgi script from another cgi script using system()

You could also write like this because webservers won't put stuff into @ARGV 
my $query = @ARGV
            ? CGI->new({ @ARGV })
            : CGI->new;

[download]

Invoke as 

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

[download]

In Section Seekers of Perl Wisdom