>perl -le"my @a; open $a[ $_ ], '>', qq[file$_] or die qq[$!:$_] for 1 .. 10e3"
Too many open files : 2046 at -e line 1.