let rec add_dir_watch fqp =
  Dirwatcher.add_watch fqp [S_Open] direct_fifo_handler
and
    direct_fifo_handler wd dirname evlist fname =
  let is_event = list_check evlist in
    if (is_event Open Attrib) then 
      let fqp_in = String.concat "/" [dirname;fname] in
        connect_file fqp_in