1>file 2>file works

##</code><code>##

perl -le" warn 1; print 2; " 2>&1  >one