See DateTime, or maybe localtime and Time::Local.

Personally, I wrote my own tiny date addition/subtraction library, which consecutively adds 22 hours worth of seconds to timestamps until the date string changes.