sub login_form {
        &print_header;
        print "<center>",
                $cgi->start_form,
                $cgi->h1($title),
                $sid,br,
                "Welcome to the Digex Lunch Forum.",br,
                "Please login below or check \"New Account\"",br,
                "to sign up for our group and receive your premier benefits.",br,br,
                "<table><tr><td>Username </td><td>",
                $cgi->textfield('username'),"</td></tr><tr><td>Password </td><td>",
                $cgi->password_field('secret'),"</td></tr></table>",br,
                $cgi->checkbox_group(-name=>'newaccount', -value=>'New Account'),br,br,
                $cgi->submit(-name=>'oldlogin', -value=>'Next'), " ",
                $cgi->defaults('Clear'),"</center>",
                $cgi->end_form,
                $cgi->end_html;
}