eval { find(sub {
  ($foundfile = $File::Find::name) if $File::Find::name =~ $target;
  die "FoundFile" if $foundfile;
}, $location) };
die $@ if $@ and $@ !~ /FoundFile/;