use v5.16.0;

##</code><code>##

say "Total time: ", (time - $start); # 180 seconds 

##</code><code>##

print "Total time: ", (time - $start); # 180 seconds

##</code><code>##

time perl db.pl

Total time: 5
real	0m5.348s
user	0m0.360s
sys	0m0.820s