+}
+closedir(INDIR);
+
+# load list of geodns zones that will do DNSSEC
+if (defined $params->{'geozonedir'}) {
+ chdir $params->{'geozonedir'} or die "chdir $params->{'geozonedir'} failed? $!\n";
+ opendir INDIR, '.' or die ("Cannot opendir $params->{'geozonedir'}\n");
+ for my $file (sort {$a cmp $b} (readdir INDIR)) {
+ next unless $file =~ /\.zone$/;
+
+ open (F, '<', $file) or die "Cannot open $file: $!\n";
+ my ($zc, undef, undef) = Load(join "", (<F>));
+ close F;
+
+ my $zone = basename($file, '.zone');
+
+ if ($zc->{'dnssec'}) {
+ push @dnsseczones, $zone;
+ } else {
+ push @{$count->{'unsigned'}}, $zone;
+ };
+ }
+ closedir(INDIR);
+}
+
+
+my @details;