$ perl readdir-test.pl .
Scan time for directory . : 3.5e-05 seconds
Total entries in directory . : 4
$ perl readdir-test.pl test/
Scan time for directory test/ : 0.113722 seconds
Total entries in directory test/ : 68115
$ perl readdir-test.pl test2/
Scan time for directory test2/ : 1.475231 seconds
Total entries in directory test2/ : 412483