close(STDIN);
close(STDERR);
open(STDERR, ">/tmp/foo");
print fileno(STDERR), "\n";  # prints 0