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