Help for this page
for (my $i=0; $i < 5; $i++){ opendir(DIR,$i) or die(); ... } closedir(DIR); }
use Benchmark; timethese(10000, { ...