C:\>perl -Mstrict -w -E "my @h; for my $i (1..5000) { open $h[$i],'<','nul' or die qq[$i $!]; }"
2046 Too many open files at -e line 1.