$ perl -le " print for map { fileno $_ }  \*STDIN, \*STDOUT, \*STDERR "
0
1
2