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