find( sub {
   next unless -d;

   mkdir File::Spec->catpath( ... )
} , ' ... '
);