Select Code to Download

# file Secs.pm
package Secs;
...
    sprintf "%d:%02d:%02d",$h,$m,$_[0]-$h*3600-$m*60;
}
1;

use Secs;

print Secs->new($end - $start),"\n";