You will probably find that DateTime::Duration does what you want.

/J\

Super Search on the term 'time' in the title brings up changing time date format., and in this thread there is e.g. Re: changing time date format., which references Date::Calc.

Take a look at that, it might fit your needs.

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

#!/usr/bin/perl -wl
use strict;

my $time1 = '12:30:36';
my $time2 = '12:45:03';

print sum_times($time1, $time2);

sub sum_times {
    my $secs;
    for (@_) {
        chomp;
        my ($h, $m, $s) = split /:/;
        $secs += ($h*3600 + $m*60 + $s);
    }
    return sec_to_hms($secs);
}

sub sec_to_hms {
    use integer;
    local $_ = shift;
    my ($h, $m, $s);
    $s = $_ % 60; $_ /= 60;
    $m = $_ % 60; $_ /= 60;
    $h = $_;
    return sprintf("%02d:%02d:%02d",$h, $m, $s);
}
[download]

Notes:

• Does not perform any sanity checking on the data.
• Should "add" as many "times" as you wish to throw at it.
• You are still probably better advised to use a module for this type of task.

Cheers,
Darren