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

##</code><code>##

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