use strict; use warnings; use My::TimeCalc; my $t1 = new My::TimeCalc("16:51,12"); my $t2 = new My::TimeCalc("34:48,14"); my $t = ($t1 * 4) + $t2; print($t,"\n"); # 102:12,62