use POSIX qw(strftime);

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