localhost:/usr/share/doc$ time perl -e 'print scalar(()=glob"*"),$/'
1164

real    0m0.045s
user    0m0.040s
sys     0m0.000s