my $year= ( localtime (stat $file)[9] )[5] + 1900;

##</code><code>##

my $year= ( localtime +(stat $file)[9] )[5] + 1900;