In CGI2.CGI, where are you defining $query? It looks to me as if you cut'n'pasted some code from someone else without a full understanding of what it's doing.
Try either of the following approaches:
#!/usr/local/bin/perl
use CGI qw(:all);
print header;
print "in cgi2.cgi<BR>";
$i = param('i');
print $i;
#!/usr/local/bin/perl
use CGI;
$query = CGI->new;
print $query->header;
print "in cgi2.cgi<BR>";
$i = $query->param('i');
print $i;
Update: $CGI -> CGI in the second code example.
My criteria for good software:
- Does it work?
- Can someone else come in, make a change, and be reasonably certain no bugs were introduced?