#!/usr/bin/perl
#
# eg15: first (very simple) benchmarking test..
#

use strict;
use warnings;
use Benchmark;
my $t0 = Benchmark->new;			# start

# ... put your code here ...
my $x = 100; for(my $i=0; $i<100000000; $i++ ) { $x++; }

my $t1 = Benchmark->new;			# stop
my $ts = timestr( timediff($t1, $t0) );
print "the code took: $ts\n";
