$telnet->errmode('return');
while (my $line = $telnet->getline(Timeout => 3600))
{
  if (not defined $line and $telnet->timed_out())
  {
    # print LOGFILE "It's been an hour since the last text... still waiting.\n";
    redo;
  }

  print $line;
}