337                  select STDOUT;
   338                  $|=1;
   339                  print "=====================================\n";
   340                  print "name:\t$name\n";
   341                  print "DNS_ntoa:\t$DNS_Data_ntoa{$name}\n";
   342                  print "Spectrum:\t$Spectrum_Data_ntoa{$name}\n";
   343
   344                  if ( ($DNS_Data_ntoa{$name} eq $Spectrum_Data_ntoa{$name}) && \