Anonymous

#!/usr/bin/perl

use warnings;
use strict;

my $row;

$row->{ttime} = 5.0167; # 5 whole minutes, 1.67% of another minute
$row->{tcalls} = 1;
my $ttime = sprintf( "%1.02f", $row->{ttime} );
my $a = ( $ttime * 60 ) / $row->{tcalls};
my $s = $ttime * 60;

printf ( "%02d:%02d:%02d [%s]\n", $s / 3600, $s % 3600 / 60, $s % 60, $s );
printf ( "%02d:%0d2:%02d [%s]\n", $a / 3600, $a % 3600 / 60, $a % 60, $a );