C:\temp\test>perl -e "{open my $f,'>',++$a or die qq|$a: $!|;push @a,$f;redo}
2046: Too many open files at -e line 1.