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

 my $idx = "blog";

 my( $doc ) = @ARGV;
 die "usage: $0 doc" if !defined $doc;

 my $es = Search::Elasticsearch->new( );

 my $results = $es->search(
   index => $idx,
   body  => {
     query => {
       more_like_this => {
         like_text =>
           slurp( $doc, { utf8 => 1 } ),
         min_term_freq   => 5,
         max_query_terms => 20,
       }
     }
   }
 );

 for my $result (
   @{ $results->{ hits }->{ hits } } ) {

   print $result->{ _source }->{ file },
     "\n";
 }