##############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;