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