for (1..100000) { open my $fh, $0; };