use Net::Telnet ();
$hostname = "rhino.****.edu";
$pop = new Net::Telnet (Telnetmode => 0);
$pop->open(Host => $hostname,
               Port => 1827);
$x = "Kingdom Hearts is a series of action role-playing games developed and publ     ished by Square Enix (formerly Square). It is the result of a collaboration betw     een Square and Disney Interactive Studios, and is under the direction of Tetsuya      Nomura";
$x .= "\r\n.\r\n";
$pop->print($x);
$f = $pop->waitfor('//');
print "$f\n";