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

print "$json_encoded_data";