my $date = (stat $file)[9];