my $username=$cgi->param('username');
    if ($username eq 'testuser'){
        print $cgi->redirect("http://navitwiki/cgi-bin/main.cgi");
    }else{
        $message='Please Check the Username & Password';
        &init_screen();
    }