~$ dnscheck.pl atlrhel5cs
query -> atlrhel5cs.example.com
;; query(atlrhel5cs.example.com)
;; setting up an AF_INET() family type UDP socket
query -> atlrhel5cs.to.example2.com
;; query(atlrhel5cs.to.example2.com)
;; setting up an AF_INET() family type UDP socket
query -> atlrhel5cs.example2.com
;; query(atlrhel5cs.example2.com)
;; setting up an AF_INET() family type UDP socket
$VAR1 = [
          'example.com',
          'to.example2.com',
          'example2.com'
        ];
$VAR1 = \undef;
Use of uninitialized value in concatenation (.) or string at /home/newatson/bin/dnscheck.pl line 39.
WARNING: Skipping host: atlrhel5cs, query:  -- no DNS entry! at /home/newatson/bin/dnscheck.pl line 39.