perl -E"say(),open $fh[$_], '>', qq[file$_] or die $! for 1 .. 1e5"
1
2
3
...
2040
2041
2042
2043
2044
2045
2046
Too many open files at -e line 1.