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