use Time::HiRes 'time';

my $before=time();
#do stuff here
my $after=time();
my $howlong=$after-$before;
[download]

Note, however, that Time::HiRes returns the time in floating-point seconds, not milliseconds.

=cut
--Brent Dax
There is no sig.