Help for this page
#!/usr/bin/perl ... my $j = decode_json($_); print "ok\n"; print "keys are: ".join("\n",keys(%$j))."\n";