print OUT "; MIT Network Host Table\n;\n";
print OUT "; \t\$Author$\n";
print OUT "; \t\$Date$\n";
print OUT "; MIT Network Host Table\n;\n";
print OUT "; \t\$Author$\n";
print OUT "; \t\$Date$\n";
print OUT "; Host table generated by Moira at $tnow\n;\n";
while (($label, $name) = $sth->fetchrow_array) {
print OUT "; Host table generated by Moira at $tnow\n;\n";
while (($label, $name) = $sth->fetchrow_array) {