if ( $has_files ) {

    my @now = gettimeofday;
    open FH, ">> /tmp/tmd_logs/DNOTIFY.LOG";
    print FH  format_time( $now[0] ).'.'.$now[1], "  PREOPEN $dir\n";
    close FH;

    open (PIPE, ">$pipe");

    @now = gettimeofday;
    open FH, ">> /tmp/tmd_logs/DNOTIFY.LOG";
    print FH  format_time( $now[0] ).'.'.$now[1], " POSTOPEN $dir\n";
    close FH;

    $| = 1;
    select(PIPE);
    eval {
        print PIPE "C,$dir,1ROSE";
    };
    $dirs{$dir}-- if $@;
    close PIPE;

    @now = gettimeofday;
    open FH, ">> /tmp/tmd_logs/DNOTIFY.LOG";
    print FH  format_time( $now[0] ).'.'.$now[1], " POSTCLOS $dir\n";
    close FH;

}