my $age; # age in seconds
    $age = $1 * 86400 if $time =~ s/(\d+)-//; # add days if there
    my ($hours,$min,$sec) = split /:/, $time;
    my @mult = (1, 60, 3600);
    for (reverse split /:/, $time) { # fun way to convert to seconds
        $age += $_ * shift @mult;    # he he he :-)
    }