Select Code to Download

Use of uninitialized value $domain in string ne at dnsdig.cgi line 9.
Use of uninitialized value $domain in concatenation (.) or string at d
+nsdig.cgi line 18.
Can't call method "answer" on an undefined value at dnsdig.cgi line 19
+.

#!/usr/bin/perl -w

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