##############CGI1.CGI###############
#!/usr/local/bin/perl
use CGI qw(:all);
print header;
print "now in cgi1.cgi
";
print q(go to cgi2);
##############CGI2.CGI###############
#!/usr/local/bin/perl
use CGI qw(:all);
print header;
print "in cgi2.cgi
";
$i = $query->param('i');
print $i;