Select Code to Download

use POSIX qw(strftime);

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

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