my $rv = read STDOUT, $_, 8192;
  die "read: $!\n" if !defined($rv);