while(my @ready = $select->can_read) {
...
      my $data;
      my $length = sysread $fh, $data, 4096;

...
           $processeddata .= $data;
...
}