#!e:/perl/bin/perl
use CGI;
use CGI::Session;
require "telnet.pm";
print "Content-type:text/html\n\n";
print << "END_OF_MESSAGE";
AutoGenerate
some stuff to collect inputs
END_OF_MESSAGE
#create cgi object
$cgi=new CGI;
$session = new CGI::Session( "driver:File", $cgi, {Directory=>"C:/temp/"} );
#create telnet object, and save it in session
my $telnet = new Net::Telnet ( Timeout=>1, Errmode=>'return');
$telnet->open(Host=>'hostname', Port=>'port') or die "cannot login";
print "\nLogged: $telnet\n";
$teln = $cgi->param("$telnet");
$session->param($telnet, $teln);