Try this..

#!/usr/bin/perl

use strict;
use Date::Manip;

my $time_a = "12:00:00";
my $time_b = "11:10:00";

my $delta = DateCalc( $time_a, $time_b );

print join ":", ( (split( ":", $delta ))[4, 5, 6] );
[download]