>perl -le"print fileno(STDOUT); print fileno(STDERR);" 2>&1 
1
2