Select Code to Download

  read STDOUT, $_, 8192;

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

before=0
after=0
read: Bad file descriptor

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

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

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