my ($parser, $document, $users);
   local($::flag);
   $::flag=0;
   open(USERS, "../../xml_final/users/users.xml") ||
      die "Could not open users.xml $!";
   flock(USERS, LOCK_SH);

print header, start_html(-title => "Login" ,-style => {
      -src => "../../xml_final/db.css"}), title ("please login");
print start_html;

   $parser= new XML::Parser();
   $parser->setHandlers(
    Start => \&start_handler,
        Char  => \&char_handler
   );

   $document = $parser->parse (\*USERS);
   close (USERS);