There is bound to be something useful in the DateTime module set. But you can also implement this yourself with some judicious use of gmtime() and Time::Local.

As an aside, you might be interested in the Reefknot project.