while(@ready = $sel->can_read)
{
  foreach my $fh(@ready)
  {
    my $line = "";
    sysread( $fh, $line, 1024 );
  }
}