sub wanted {
    # Prune this directory so we don't recurse farther,
    # And return so we don't process this file.
    if ($File::Find::dir =~ /images/) { 
        $File::Find::prune = 1;
        return;
    }
    # Now we can do our processing:
    print $File::Find::name . "\n";

}