in reply to skip directories when using File::Find

Just from memory, I think there is a $File::Find::prune variable that will do this for you.... 
if (skip_this_directory()) {
  $File::Find::prune = 1;
}

[download]
-Blake

In Section Seekers of Perl Wisdom