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