sub host_mask (;$) { my $p = shift;
    if ($pkg_host_mask) {
      P "(hostmask pre-set to %s)", $pkg_host_mask;
      return $pkg_host_mask;
    }
    $pkg_host_mask = $_[0] if @_;
    $pkg_host_mask
  }