print NSUPDATE "update add $entry 10 A 127.0.0.1\n";
}
for my $entry (keys %current_entries) {
next if (exists($entries{$entry}));
print NSUPDATE "update add $entry 10 A 127.0.0.1\n";
}
for my $entry (keys %current_entries) {
next if (exists($entries{$entry}));