Miscellany

# $row->{ttime} == 301.2
my $ttime = sprintf( "%1.02f", $row->{ttime} );
# $ttime == 301.20
my $s = $ttime * 60;
# $s == 301.2
sprintf ( "%02d:%02d:%02d", $s / 3600, $s % 3600 / 60, $s % 60 );
# 00:05:01

# Somehow, the above works fine

# $row->{ttime} == 301.2
my $ttime = sprintf( "%1.02f", $row->{ttime} );
# $ttime == 301.20
# $row->{calls} == 1
my $a = ( ( $ttime * 60 ) / $row->{tcalls} );
# $a == 301.2
sprintf ( "%02d:%0d2:%02d", $a / 3600, $a % 3600 / 60, $a % 60 );
# 00:52:01

# WTF?!