Your problem is that you're misinterpreting the month number returned by localtime. The index starts at 0, not 1. It's not deducting a month, you should be adding one on when you display it! See localtime for more info.

You should also take a look at Date::Manip and the other Date:: modules in CPAN because they will save you a lot of effort :-)