If we're talking Perl, you won't get 13 if it is the twelfth month, because localtime delivers months from 0 to 11.

Besides that I like your answer.