#!/usr/local/bin/perl

# adds many times in the form: mm:ss




print "Type in the times (like: 12:03, on a single line ...):\n\n";
while (<>)
  {
    chomp;
    ($min,$sec)=split(":");
    $MIN+=$min;
    $SEC+=$sec;
  }

$SEC+=$MIN*60;
$MIN=int($SEC/60);
$SEC=$SEC % 60;

print "\n\nTotal time is: $MIN:$SEC\n";