Main();
sub Main {
        my $action = $query->param('action');
switch {
      warn("manage_users.cgi line 54 '$action'");
      #Request from User for Login Form
      ($action eq "GetLoginForm")  && do {
        manageusers::OpenConnection();