Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
        print "<br />", $rr->exchange, ' [<b>', $rr->preference, "</b>
+]\n";
    }
}

Select or download this

# replace for my $domain( @ARGV ) {
# with
...
        print "<br />", $rr->exchange, ' [<b>', $rr->preference, "</b>
+]\n";
    }
}