sub process_dir {
    my ($dir, $newfile) = @_;