the biggest issue is that you should "read the fine manual". try perldoc -f localtime for a start. the year localtime returns is an offset of years that have passed since 1900. also, try to put your code inside a <code> tag, that will enhance readability a lot.

thanks,
snowcrash