Btw, you don't need these parentheses there, print OUTFILE "<B>$file</B><BR>\n" if -d "$dir/$file"; works just fine.

I was just sticking to your 'original' style in my answer, though for me the 2nd way reads better. But consistency is more important, so either change every usage of print or leave it as it is.