Excellent question. I have posted an update to my original node and have included the code.

$entry specifies and entry from a directory with a full directory path name...for example as follows (NOTE: THISDIR is the directory handle from an opendir() on the $top_dir):

$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>
   }
}
[download]