Select Code to Download

use v5.8.0;
my $stderr;
...
   warn("foo\n");                    # no output
}
print STDERR ("\$stderr: $stderr");  # $stderr: foo

use v5.8.0;
my $stderr;
...
};
print STDERR ("\$stderr: $stderr");  # $stderr: foo
die($@) if $@;                       # bar