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

##</code><code>##

timed_out - time-out indicator

$boolean = $obj->timed_out;

$prev = $obj->timed_out($boolean);

This method indicates if a previous read or write method timed-out.

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.

##</code><code>##

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

##</code><code>##

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