#!c:\strawberry\perl\bin\perl -w

use CGI::Carp qw( fatalsToBrowser );
use Net::Telnet ();

print "Content-type:text/html\r\n\r\n";

$telnet = new Net::Telnet;
$telnet->open([Host => 'localhost',] [Port => '7300',] [[Errmode => 'die',] [Timeout => '9']);
$telnet->waitfor('/Please enter your callsign: $/i');