use POSIX qw(strftime);

my $date = strftime "%Y", localtime;
print $date;

##</code><code>##

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