Select Code to Download

#!/usr/bin/perl

use strict;
...
$t1 += $t2->min*60 + $t2->sec;

print $t1->strftime("%M:%S");