my $line;
while ($line = $telnet->getline)
{
  print $line;
}