CPAN::Groonga

    my ($h, $p) = tempfile(UNLINK => 1);
            binmode $h;
            print { $h } do { local $/; <STDIN> };
            close $h;
            $p;
        };
    } else {
        return $file;

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm