Select Code to Download

#!/usr/bin/perl

...
warn "As does this.";
die "And this does, too!\n";
close STDERR;

open(OLDERR,">&STDERR") || die "Couldn't dup STDERR: $!\n";
open(STDERR,">>error.log") || die "Couldn't redirect STDERR: $!\n";
...
warn "As does this.";
open(STDERR,">&OLDERR") || die "Couldn't restore STDERR: $!\n";
warn "This goes to the screen.";