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