use JSON;

my $json = JSON->new();

$json->convert_blessed(1);
$json->allow_blessed(1);


my $data = {
   success => JSON::true,
   test=>'Hello' 
};

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