print "Done writing discussion files!\n";
Change it to say:
# print "Done writing discussion files!\n";
if (!defined($USR_NAME))
{
print qq(<h2>User</h2>\n);
print qq(<input type="text" size=40 name="USR_NAME">\n);
}
(For some reason, user names are coming back with a "#" at the end of them, but this at least works.)