sub found_file {
  my $file = shift;
  warn "Found '$file'\n";
}