CPAN::Groonga

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

) {
        say "EVAL_ERROR: $@\nfailed to convert YAML string: $str";
    }
}

my $str = do { local $/; <DATA> };

my $count = $ARGV[0] || 1000;
my $sleep = $ARGV[1] || 3;
for my $i (0 .. $count) {