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