if ( -d and /images/ ) {
  $File::Find::prune = 1;
  return;
}
# Do your processing