#!/usr/bin/perl use strict; ## take the time before load code my $time_start = time; print "START: $time_start\n"; ## time load code here my $a; my $b = 1; my $c = 1000; for(my $i=0;$i<40000000;$i++) { $a = $i*$b + $c; } ## take the time after load code my $time_end = time; print "END: $time_end\n"; ## calculate time difference my $time_diff = $time_end - $time_start; print "Total time: $time_diff seconds\n"; exit(0);