Select Code to Download

use warnings;
use strict;
...
    my $t = Time::Seconds->new($seconds);
    return $t->pretty;
}

        Rate   mod   sub
mod  17819/s    --  -95%
sub 373134/s 1994%    --