C:\temp>mkdir test

C:\temp>cd test

C:\temp\test>perl -e "for (1..100_000) { open my $f, '>', $_ or die $! }"

C:\temp\test>perl -le "$n=time; unlink 1..100_000; print time-$n"
55