let handle_dir_event dirname evlist str = 
  let fname = String.concat "/" [dirname;str] in
    logprint "File: %s. " fname;
    pevlist evlist