#!/usr/bin/perl -wl
use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use diagnostics;

my $q = new CGI;
my $v1 = $q->param('v1') || '';
my $hdr = "I am a1.cgi:";

print $q->header;
print "$hdr v1=$v1<br>";

my $cmd = './a2.cgi v2=dog 2>&1';
print "$hdr cmd = $cmd<br>";
my $cmdOut = qx[$cmd];

print "$hdr cmdOut = <br>$cmdOut<br>";

##</code><code>##

#!/usr/bin/perl -wl
use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use diagnostics;

my $q = new CGI;
my $v2 = $q->param('v2') || '';
my $hdr = "&nbsp;&nbsp;I am a2.cgi:";

print "$hdr from param() v2=$v2<br>";
print "$hdr my cmd line args: @ARGV<br>";

##</code><code>##

$ ./a1.cgi v1=box
Content-Type: text/html; charset=ISO-8859-1


I am a1.cgi: v1=box<br>
I am a1.cgi: cmd = ./a2.cgi v2=dog 2>&1<br>
I am a1.cgi: cmdOut = <br>&nbsp;&nbsp;I am a2.cgi: from param() v2=dog<br>
&nbsp;&nbsp;I am a2.cgi: my cmd line args: v2=dog<br>
<br>

##</code><code>##

$ ./a2.cgi v2=dog 2>&1
&nbsp;&nbsp;I am a2.cgi: from param() v2=dog<br>
&nbsp;&nbsp;I am a2.cgi: my cmd line args: v2=dog<br>

##</code><code>##

I am a1.cgi: v1=box
I am a1.cgi: cmd = ./a2.cgi v2=dog 2>&1
I am a1.cgi: cmdOut = 
  I am a2.cgi: from param() v2=
  I am a2.cgi: my cmd line args: v2=dog