Since Time::Piece always works from an epoch time, the algorithm could help it assuming it doesn't slow down also getting hours, minutes and seconds.

That said, you could get far larger savings by converting Time::Piece to C.