#use HTTP::Request::Common;
use HTTP::Request;

my $request = HTTP::Request->new(POST => $url);
$request->header( 'Content-Type' => 'application/json' );
$request->content( $json );
...


##</code><code>##

my $json = $query->param('POSTDATA');
my $data = decode_json( $json );
...