Help for this page
select( (select(STDERR), $|++)[0] );
$ perl -e ' open(F,"/etc/passwd"); ... ' main::F main::STDOUT