#!/usr/bin/perl -w

use strict;

use Audit::Config;
use Check::DNSCheck;

# for every host in the hosts file
open(FILE, HOSTS_FILE) || die("$!\n");
while (<FILE>) {

        chomp($_);
        my $host = $_;

        next if ($host =~ /^(\s*)#/);

        my $chk = new DNSCheck($host);
        $chk->run();

}
close(FILE);