sub load_page {
  $page = param("page");
    
        switch($page) {
                 case "userlist" {
                    $file = `/var/www/login/userlist.cgi`;
                    if (-e "/var/www/login/userlist.cgi") {
                        print $file;
                }
        }
    }  
}