>>107917085
... look at ulimit -a
$ for x in $(seq 1 1025); do touch $x; done
$ perl -wle 'for (<*>) { open my $f, ">", $_; push @files, $f }; print {$_} "write something\n" for @files'
print() on closed filehandle $f at -e line 1.
print() on closed filehandle $f at -e line 1.
print() on closed filehandle $f at -e line 1.
print() on closed filehandle $f at -e line 1.