Select Code to Download

use Time::HiRes  qw/time/;
my $start_time = Time::HiRes::time();
...
my $time_taken = Time::HiRes::time() - $start_time; # floating seconds