use strict;
use warnings;
use diagnostics;

use Time::HiRes qw( time );
my $start = time();

...code goes here...

my $end = time();
my $runtime = sprintf("%.16s", $end - $start);
print "This script took $runtime seconds to execute\n";