#!/usr/local/bin/perl -w
 use strict;
 use Search::Elasticsearch;
 use File::Find;
 use Sysadm::Install qw( slurp );
 use Cwd;
 use File::Basename;

 my $idx = "blog";
 my $base_dir = getcwd;
 my $base = $base_dir . "/idx";

 my $es = Search::Elasticsearch->new( );
 eval {
   $es->indices->delete( index => $idx ) };

 find sub {
   my $file = $_;

   return if ! -f $file;
   my $content = slurp $file, { utf8 => 1 };

   $es->index(
     index => $idx,
     type  => 'text',
     body  => {
       content => $content,
       file    => $file,
     }
   );
   print "Added $file\n";
 }, $base;