my $request = HTTP::Request::JSON->new(
        'PUT', $url,
        [
            Accept         => 'application/json',
            'Content-Type' => 'application/json',
        ],
        to_json($data)
    );

    my $browser  = LWP::UserAgent::JSON->new();
    my $response = $browser->request($request);