shell> perl -le 'open( FH => ">-" ); close STDOUT; print FH "test"'
shell> perl -le 'open(FH => ">&STDOUT");close STDOUT; print FH "test"'
test