use DateTime qw();
DateTime->now->strftime('%Y');