#!/usr/bin/perl use warnings; use CGI::Carp qw/fatalsToBrowser/; use Net::DNS; my $res = Net::DNS::Resolver->new; my $logTime = gmtime(time); open(fileIN,"domains.txt") or dienice("Cannot open domains list: $!"); @logData = ; close(fileIN); print header("text/plain"); print "Header :: $logTime \n"; foreach $line(@logData) { chomp($line); my $dom = $line ; my $query = $res->query($dom, "NS"); if ($query) { open(fileOUT, ">>log.txt") or dienice("Can't open log.txt for writing: $!"); flock(fileOUT, 2); seek(fileOUT, 0, 2); print fileOUT "$dom : "; print "$dom : "; foreach $rr (grep { $_->type eq 'NS' } $query->answer) { print fileOUT $rr->nsdname, ","; print $rr->nsdname, ","; } } print "\n",
; print ".",
; print < EndHTML } close (fileOUT); sub dienice { my($msg) = @_; print "\n\nError Opening File!\n"; print "\n"; print "

Error

\n"; print $msg; print "\n\n"; exit; }