Yes, since its December, you're probably using 12 which is out-of range for $month. You may also need to subtract 1900 from the year since it (currently) needs to be 102. Try dumping the values from localtime so that you can see what the values should look like, as in:

use strict;
use Data::Dumper;

my @time_ary = localtime(time);
print Dumper(\@time_ary);
[download]

Where do you want *them* to go today?