opendir(DH, $dir_to_process)
    or die "Cannot open $dir_to_process: $!";