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

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