in reply to Checking the Time

Time::Local does that for you.

In Section Seekers of Perl Wisdom