kachan;
use 5.008005;
use strict;
use warnings;
use Encode qw/encode_utf8/;
use Getopt::Long;
use JSON;
use Log::Minimal;
use LWP::UserAgent;
use Plack::Builder;
use Plack::Runner;
use Plack::Request;
pe' => 'text/plain', 'Content-Length' => 18], ['Payload is nothing']];
}
my $dat = decode_json($payload);
if ($self->{debug}) {
infof("Payload: %s", $payload);
}
my $even