#!/usr/bin/perl
use strict;
use warnings;
my @args = ("animal=duck", "vegetable=carrot");
system("/usr/bin/perl", "/tmp/b.cgi", @args);

##</code><code>##

#!/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";

##</code><code>##

Content-type: text/plain

b.cgi query dump:
<ul>
<li><strong>animal</strong></li>
<ul>
<li>duck</li>
</ul>
<li><strong>vegetable</strong></li>
<ul>
<li>carrot</li>
</ul>
</ul>
b.cgi argv dump:
animal=duck,vegetable=carrot

##</code><code>##

b.cgi query dump:
<ul></ul>
b.cgi argv dump:
animal=duck,vegetable=carrot