>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.

##</code><code>##

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.