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

##</code><code>##

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