read STDOUT, $_, 8192;

##</code><code>##

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

##</code><code>##

before=0
after=0
read: Bad file descriptor

##</code><code>##

open(STDOUT, '+>', "/tmp/stdout.log") or die $!;

##</code><code>##

close(STDOUT);
open(STDOUT, '+>', "/tmp/stdout.log") or die $!;

##</code><code>##

before=0
after=0
stdout=hello world
at end=12