# Copy stdin to stdout or stderr. Try to mess up the STD* files when done.
my $out = $ARGV[0] ? \*STDERR : \*STDOUT;
while (<STDIN>) {
print $out $_;
}
# Try to break stdio
open(F, ">/dev/null") || die;
select(F);
open(STDIN, '>&F') || die;
open(STDOUT, '>&F') || die;
open(STDERR, '>&F') || die;