#!/usr/bin/perl
use warnings;
use strict;

use Time::HiRes qw( gettimeofday); #ao that we get fractionl seconds
        # generally Perl operates in full seconds


my $startedAt = gettimeofday(); 
my $count = 0;
while ($count < 100000000) {
    $count++; 
}
print "perl took " . (gettimeofday() - $startedAt) . "\n";
        
#Required 3.8 seconds