($arg = shift || die "takes one arg") unless -M $file >7;