use Date::Calc qw /Localtime Delta_YMDHMS/;
my @then = (Localtime(1112241312))[0..5];
my @now = (Localtime(time))[0..5];
print join ":", Delta_YMDHMS( @now, @then );   # S,M,H,D,M,Y