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