Select Code to Download

#!/usr/bin/env perl

...
          $q->h1($error),
          $q->end_html;
}

~$ curl -v -H 'Content-Type: application/json' --data '{"a": 1, "b": 2
+}' http://localhost:65451/cgi-bin/1.pl
*   Trying ::1...
...
< 
* Closing connection 0
~$

~$ curl -v -H 'Content-Type: application/json' --data '{"a": 1, "b": 2
+}' http://localhost:65451/cgi-bin/1.pl
*   Trying ::1...
...
* Connection #0 to host localhost left intact
<div>a=1</div><div>b=2</div>~$ 
</div>