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