Select Code to Download

#!/usr/bin/perl -w

...
    last if (++$entries > $max);
}
print($entries, " items under $dir\n");

  time globbug.pl /etc 20000
279 items under /etc
...
real    0m0.15s
user    0m0.09s
sys    0m0.06s