my $modtime = (stat($fh))[9]