Select Code to Download

@lines = $obj->getlines([Timeout => $secs,]);

timed_out - time-out indicator

...
With no argument this method returns true if a previous method
timed-out.  With an argument it sets the indicator. Normally,
only internal methods set this indicator.

while (@rlines = $connect->getlines(Timeout =>1)) {
   print @rlines;
}

while (@rlines = $connect->getlines(Timeout =>1)) {
   if ($pop->timed_out) {
...
      exit;
   }
   print @rlines;