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