$ perl -le 'print STDOUT foo' 1>/dev/null
$ perl -le 'print STDERR foo' 1>/dev/null
foo