#!/usr/bin/perl

use strict;
use warnings;

use JSON;

my %hash = (
  foo => 'bar',
  1   => 2,
  this => 'that',
  );
my $js = objToJson(\%hash);

print "Content-type: text/javascript\n\n";
print $js