my $nyear = (split '\s', localtime)[4]+1;