sub wanted {
  print '.';
  if ($_ eq "$item.dat")(
    print "\nfound it!\n";
    found = $File::Find::name;
  }
}