Select Code to Download

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

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