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

[Matt Frye]

On 4/15/05, William Sutton <william at trilug.org> wrote:
> Well, yes, if ultra-portable means other OSes than *NIX.  
> > I was going to say the same thing, but the mention of "ultra-portable"
> > put me off =)

In this case, the goal of "ultra-portable" is indeed to serve other
OSes.  Hence also my motivation for avoiding specific modules.  Since
I don't admin those boxes, I couldn't be sure of what @INC would look
like.

In any case, the bossman asked me to put in stats and a timer, so I
ended up with more scalars, etc.  Easily enough achieved, but the
thing was elegant and beautifully simple before all that.  Amusingly,
perl is fast enough that the timer is essentially useless.  I tested
it deleting over 7500 files and it still didn't get over 1 second. 
Nice.

MPF