>perl -Mstrict -w -E 'my @h; for my $i (1..5000) { open $h[$i],"<","/dev/null" or die "$i $!"; }'
1022 Too many open files at -e line 1.