use JSON;

$params->{timeout} = 2000;
$body->{"timeout"} = (defined $params->{timeout}?$params->{timeout} : 3000);
my $body_string = to_json($body);
print "$body_string";