if (-e 'abc' && -d _) {
    foreach my $entry (#other than <*.log>) {
        print OUTPUT ":E: $entry5 is  extra file/dir \n";
    }
}