find(\&wanted, "/usr/home/amarquis");

sub wanted {
    print $File::Find::name . "\n";
    if ($File::Find::dir =~ /images/) { 
        $File::Find::prune = 1;
    }
}

##</code><code>##

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";

}