I'd recommend that you use localtime and then substract the number of seconds of 15 minutes ( that is 60*15 ), and then you can convert to whatever format you want with POSIX::strftime. If that solution is not that good, I suggest for you to take a look on Date::Manip and Time::Local for your doings. Greetings