I'm not quite sure why that works like it does however if you do something like:

use Time::localtime;
$year=1900+localtime(time()-24*3600)->year;
print $year,"\n";
[download]

It seems to work. If you want to look into this more you could probably look at Time::localtime and localtime