#! perl -slw
use strict;
use Time::HiRes qw/time/;

my $i = 1e6;
my $start = time;
1 while --$i;
printf "Took %f seconds\n", time - $start;

__END__
C:\test>1034296.pl
Took 0.062912 seconds