#!/usr/bin/perl
use strict;
use warnings;
my @args = ("animal=duck", "vegetable=carrot");
system("/usr/bin/perl", "/tmp/b.cgi", @args);
####
#!/usr/bin/perl
use warnings;
use strict;
use CGI;
my $query = new CGI;
print "Content-type: text/plain\n\n";
print "b.cgi query dump:\n";
print $query->Dump . "\n";
print "b.cgi argv dump:\n";
print join(',', @ARGV);
print "\n";
##
##
Content-type: text/plain
b.cgi query dump:
b.cgi argv dump:
animal=duck,vegetable=carrot
##
##
b.cgi query dump:
b.cgi argv dump:
animal=duck,vegetable=carrot