#!/usr/bin/env perl

use strict;
use warnings;

use JSON ();
use LWP::UserAgent ();
use HTTP::Request::Common qw( POST );

my $data = { a => 40, b => 2 };

my $json = JSON->new->utf8;
my $ua   = LWP::UserAgent->new;

my $req = POST(
	"http://buzzword.org.uk/2013/json-addition.cgi",
	Content_Type => 'application/json',
	Content      => $json->encode($data),
);

my $result = $json->decode( $ua->request($req)->decoded_content );
print $result->{c}, "\n";