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