if (-e 'abc' && -d 'abc'){
	opendir my $dh4, $a_directory or die "can't open directory:$!";
	while (my $entry5 = readdir $dh4){
		if ($entry5 ne $name.".log" && $entry5 ne '<*.log>'){
			print OUTPUT ":E: $entry5 is extra file/dir \n";
	                print ":E: $entry5 is extra file/dir \n";
		}
	}
}