#!e:/perl/bin/perl use CGI::Session; use CGI; print "Content-type:text/html\n\n"; $session = new CGI::Session( "driver:File", $cgi, {Directory=>"C:/temp/"} ); $telnet = $session->param("$teln"); print "\nretrieved from session: $telnet"; $q = new CGI; if ($telnet) { $telnet->print("configure term\n"); $telnet->waitfor('/configure/i'); $telnet->print("exit\n"); $telnet->waitfor('/[\$%#:>].$/i'); $telnet->print("exit\n"); $telnet->waitfor('/[\$%#:>].$/i'); } else { print "Else of telnet: $telnet"; } print <<"EOM"; EOM