sub domain_name {
    local($addr) = $ENV{'REMOTE_ADDR'};
    local($_) = gethostbyaddr(pack("C4",split(/\./,$addr)),2);
    if ($_ eq '') { $_ = $addr; }
    else {
        if ($_ =~ /\.(.+)\.(.+)\.(.+)$/) { $_ = "\*\.$1\.$2\.$3"; }
        elsif ($_ =~ /\.(.+)\.(.+)$/) { $_ = "\*\.$1\.$2"; }
        elsif ($_ =~ /\.(.+)$/) { $_ = "\*\.$1"; }
    }
    $_;
}