my $rc ;
  my $buff = '' ;
  do { $rc = sysread(FH, $buff, 5000000, length($buff)) ; } while ($rc) ;