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