See the perlfunc:localtime node.
In reply to Re: Why is my script giving the year as 19100? by setantae in thread Why is my script giving the year as 19100? by setantae