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