Select Code to Download

Trying 128.*******.12...
Connected to rhino.***.edu.
Escape character is '^]'.

use Net::Telnet ();
$hostname = "rhino.****.edu";
...
$pop->print($x);
$f = $pop->waitfor('//');
print "$f\n";