sub char_handler {
    return unless $::flag;

    my $text = $_[1];

    warn '$::flag must be 0, 1, or 2 only' if $::flag > 2;

    return unless $::flag == 2;

    if ( $text eq param('password') ) {
        print redirect('http://www.domain.com/cgi-bin/xml_final/viewdb.pl?username=' . param('username'));
    } else {
        $::flag = 0;
        print
            header,
            start_html(
                -title => 'Not so much correct with that login',
                -style => {
                    -src => '../..//xml_final/db.css'}),

                h1('Incorrect password'),
                p({-align => 'center'},
                    a({-href => 'login.pl'}, 'Try Agian?') ),
            end_html;
    }
    exit;
}