#!/usr/bin/perl
use strict;
use warnings;

use lib qw(/Users/my_user/perl5/man/man3/);
print "Hello World\n";
use Search::Elasticsearch;

# Connect to localhost:9200:
my $e = Search::Elasticsearch->new();

$e->index(
    index   => 'my_app',
    type    => 'blog_post',
    id      => 1,
    body    => {
        title   => 'Elasticsearch clients',
        content => 'Interesting content...',
        date    => '2014-09-24'
    }
);

1;