print CGI::header({type => 'application/json', status => '200 OK', 

print "$json_encoded_data";


##</code><code>##


print CGI::header({type => 'application/json', status => '400 Bad Request', 

print "$json_encoded_data";