Select Code to Download

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

#!/usr/bin/perl -w
use strict;
...
my $end_run = time();
my $run_time = $end_run - $start_run;
print "Job took $run_time seconds\n";