Help for this page

Select Code to Download

Select or download this

FILE:
for my $file (@files) {
...
    print "Processed $numfiles files (total files:$totalfiles)";
    exit;
}

Select or download this

$ time perl ysth.pl
dump.1167332700 - 71
Processed 8764 files (total files:58154)
       39.55 real         2.35 user         0.80 sys