sub post_json {
    my ($mech, $json, $url) = @_;
    my $req = HTTP::Request->new(POST => $url);
    $req->content_type('application/json');
    $req->content($json);
    return $mech->request($req);
}