Check this out.

perldoc -f localtime perlfunc

localtime
               Converts a time as returned by the time function to a 9
+-element list with the time analyzed for the local time zone.
               Typically used as follows:

#  0    1    2     3     4    5     6     7     8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
..........
[download]