$ perl -le " print fileno($_) for STDIN, STDOUT, STDERR "
0
1
2