/home/alex>perl -Mstrict -w -E 'open my $f,"<","/dev/null"; say fileno($f)'
3

/home/alex>perl -Mstrict -w -E 'close STDIN; open my $f,"<","/dev/null"; say fileno($f)'
0

/home/alex>