Select Code to Download

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