#!/usr/local/bin/perl
 use strict;
 use warnings;
 use Net::Evernote::Simple 0.07;

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

 my $en = Net::Evernote::Simple->new();

 if( ! $en->version_check() ) {
   die "Evernote API version out of date!";
 }

 my $note_store = $en->note_store() or
    die "getting notestore failed: $@";

 my $filter = $en->sdk(
   "EDAMNoteStore::NoteFilter" )->new(
     { words => $pattern } );

 my $offset    = 0;
 my $max_notes = 1;

 my $result = $note_store->findNotes(
     $en->{ dev_token },
     $filter,
     $offset,
     $max_notes
 );

 for my $hit ( @{ $result->{ notes } } ) {
   my $note = $note_store->getNote(
    $en->{ dev_token }, $hit->{ guid }, 1 );
   print $note->{ content };
 }