close STDERR;
pipe(IN,STDERR);
warn "test";
close STDERR;
print "X:".(<IN>);'