Select Code to Download

#!/tool/pandora64/bin/perl5.8.8

...
    # we skip that host completely.
    die "WARNING: Skipping host: $host, query: $query -- no DNS entry!
+";
}

$ dnscheck.pl atlrhel5cs
query -> atlrhel5cs.example.com
...
                                      }, 'Net::DNS::Header' ),
                   'offset' => undef
                 }, 'Net::DNS::Packet' );

~$ dnscheck.pl atlrhel5cs
query -> atlrhel5cs.example.com
...
$VAR1 = \undef;
Use of uninitialized value in concatenation (.) or string at /home/new
+atson/bin/dnscheck.pl line 39.
WARNING: Skipping host: atlrhel5cs, query:  -- no DNS entry! at /home/
+newatson/bin/dnscheck.pl line 39.