[TriLUG] What's an effective method for timing a perl script

[Matt Frye]

> my $startTime = time;
> while(glob('./*/Recent/*')){unlink $_}
> print time - $startTime,"\n";

Cool, thanks.  Time:HiRes isn't necessary, in fact neither is adding
stats to my perfectly effective code, but the manager wants to see
them.  Go figure.

MPF