use Time::HiRes qw( gettimeofday); #ao that we get fractionl seconds
my $startedAt = gettimeofday();
my $count = 0;
while ($count++ < 100000000) {
}
print "perl took " . (gettimeofday() - $startedAt) . "\n";
        #merging the increment and the test into a signgle 
    # statement, as any Perl programmer would, 
    # and this further reduces the Perl time to 3.1 seconds.