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