let temp_dir_name =
    try Sys.getenv "TMPDIR" with Not_found -> "/tmp"