Select Code to Download

Files | ls (s) | perl (s)
  1e4   0.187    0.109
...
  1e5   1.217    0.300

graph: http://lacklustre.net/images/perl_vs_ls.png

#!/usr/bin/perl -w

...
}
close $dir;
print "$count\n";