Select Code to Download

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

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