close STDERR;
open STDERR,">",\$x or die;
`ls /some/nonexisting/path`;
print $x;