my $dir; # my goes here
 foreach $dir (@dir) {  # my does not go here.
    if ($File::Find::dir ne $dir)
    {
        $File::Find::prune = 1;
        return 0;
    }