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