sub start_handler {
      my ($expat, $element, %attributes) =@_;
      if ($::flag==0 && $element eq "username") {
         $::flag=1;
      }

      if ($::flag==1 && $element eq "password") {
         $::flag=2;
      }
}