let handle_actions cgi s = match s with 
  | "Load"         -> handle_html_arg cgi "full_path" P.load_student_file;
  | "Reload"       -> P.load_student_file !etud_file;
  | "Save"         -> handle_html_arg cgi "etud_file" 
      (fun s -> Printf.printf "Save    : %s\n" s; 
         flush stdout; 
         save_student_list s);
  | _      -> ()