Select Code to Download

use JSON;

...

print "Content-type: text/html\n\n";
print $json->encode($data);

LOG: header received:
HTTP/1.1 200 
...
Content-Type: text/html

{"success":true,"test":"Hello"}