use Time::HiRes qw(gettimeofday tv_interval);
[..]
my  $t0 = [gettimeofday];
    my $resp = &long_running_funct();
    my $ttaken = tv_interval ($t0, [gettimeofday]);
[download]