P:\test>perl -le"warn 'via STDERR'; print 'via STDOUT';" 1>junk 2>&1

P:\test>type junk
via STDERR at -e line 1.
via STDOUT

P:\test>