$ perl -fe " while(++$i){ open my($fh),'<',1 or last; push @f, $fh; }  warn $i; require strict;"
2046 at -e line 1.
Can't locate strict.pm:   Too many open files at -e line 1.