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