[OT] Syntax for: AJAX Prototype JSON response

[graq]

I'm looking for the correct return syntax (for a JSON object) to hand back to my Prototype AJAX httpRequest.

The HTML:

<script language="javascript" type="text/javascript" src="prototype.js
+"></script>
<script>
  function ajax_test()
  {
    new Ajax.Request('/cgi-bin/ajax.pl',   
      {     
        method:'get',     
        onSuccess: function(transport, json){ 
            alert(json ? Object.inspect(json) : "no JSON object");  
          },     
        onFailure: function(){ alert('Something went wrong...') }   
      }); 
  }
</script>

<a href="#" onClick="javascript:ajax_test();">TEST</a>

The script:

#!/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