perl print current year in 4 digit format

use Time::Piece;

my $t = Time::Piece->new();
print $t->year;

Move the line:

$year = $year+1900;

To after that call to localtime() and to become:

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
$year = $year+1900;