sub char_handler {
    my ($expat, $text) =@_;
    if ($::flag==1 && $text eq (param("username"))) {
       $::flag=1;
    }

    if ($::flag==2 && $text eq (param("password"))) {
       my($un);
       $un=param("username");
       print redirect("http://www.domain.com/cgi-bin/xml_final/viewdb.pl?username=$un");
    }
    elsif ($::flag==2 && $text ne (param("password"))) {
       $::flag=0;

       print header;
       print start_html(-title => "Not so much correct with tha login" ,-style => {
          -src => "../..//xml_final/db.css"});
       print h1("incorrect password");
       print p({-align=>'CENTER'},a{-href=>"login.pl"},"Try Agian?");
       print end_html;
       #print a link back to login.pl
    }
}