perl -le 'print fileno STDIN; print fileno STDOUT; print fileno STDERR' 0 1 2