$top_dir = "C:/Blah/"Blah Smah"/Blahdie/";
@all_entries = readdir(THISDIR);
foreach my $the_entry (@all_entries) {
   $entry = $top_dir . $the_entry;
   if(-d $entry) {
      <do something>
   } else {
      <do something else>
   }
}