time ./foo.pl
real    0m0.014s
user    0m0.000s
sys     0m0.010s

##</code><code>##

#!/usr/bin/perl -w
use strict;
my $start_run = time();

# all your code here

my $end_run = time();
my $run_time = $end_run - $start_run;
print "Job took $run_time seconds\n";