for (;;) {
   my $read = sysread($fh, my $buf, 64*1024);
   die("Can't read from pipe: $!\n") if !defined($read);
   last if !$read;
   print $buf;
}