perl -MTime::Piece -le'print+(Time::Piece->strptime(pop,"%T")+pop)->strftime("%T")' 1000 10:30:05