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