my ($v,$p,$n)=splitpath($File::Find::name);
      my $name=catfile($v,splitdir($p),$n);
      return unless -f and not $mirrored{$name};