#!/usr/local/bin/perl
use CGI qw(:all);
print header;
print "in cgi2.cgi<BR>";
$i = param('i');
print $i;

##</code><code>##

#!/usr/local/bin/perl
use CGI;
$query = CGI->new;
print $query->header;
print "in cgi2.cgi<BR>";
$i = $query->param('i');
print $i;