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