Edit: Oopsie, I see MarkM has already mentioned this. I must have missed that portion of his reply.
This is just a wild guess, but seeing as it is December, make sure $month is zero-based (January is 0, December is 11). timelocal() does out-of-range checking, and will not accept 12 as a month.
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);