#!/usr/local/bin/perl -w

@files = glob("*");

$i = 0;
foreach $f (@files) {
   if (-f $f) {$i++}
}

print "num plain files: $i\n";
[download]

Justin Eltoft

"If at all god's gaze upon us falls, its with a mischievous grin, look at him" -- Dave Matthews