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