Help for this page
print CGI::header({type => 'application/json', status => '200 OK', print "$json_encoded_data";
print CGI::header({type => 'application/json', status => '400 Bad Requ +est', print "$json_encoded_data";