while (@rlines = $connect->getlines(Timeout =>1)) {
   if ($pop->timed_out) {
      print "Do something else\n";
      exit;
   }
   print @rlines;