#!/usr/bin/perl -w

use 5.014;

use Encode;
use LWP::UserAgent;

my $code = LWP::UserAgent->new->post(
        "https://redmine.soundsquare.cz/mail_handler",
        Content => {
                key => "enklUD9OUlkEebWPDWPJ",
                email => Encode::encode_utf8(do {local $/; <> })
        })->code;

exit(0) if $code == 201;
exit($code);
