use strict;
use warnings;
use Data::Dumper;
use JSON;
use CGI;
 
my $q = new CGI;
 
print $q->header();
print $q->start_html(-script =>{-src=>"../javascript.js"});
 
my $hash = {};
$hash->{key} = "COUCOU";
$hash->{desc} = "SALUT";
 
my $js  = objToJson($hash);
print "<a href='#' onClick='test($js)'>TEST</a>";
print $q->end_html();

var http; // Notre objet XMLHttpRequest
 
function createRequestObject()
{
    var http;
    if(window.XMLHttpRequest)
    { // Mozilla, Safari, ...
    http = new XMLHttpRequest();
    }
    else if(window.ActiveXObject)
    { // Internet Explorer
        http = new ActiveXObject("Microsoft.XMLHTTP" );
    }
    return http;
}
 
function handleAJAXReturn()
{
 if(http.readyState == 4)
    {
        if(http.status == 200)
        {
            document.body.innerHTML = http.responseText;
        }
        else
        {
            document.body.innerHTML = "<strong>N/A</strong>";
        }
    }
}
 
function test(js) {
 http = createRequestObject();
 http.onreadystatechange = handleAJAXReturn;
 http.open('get', './fonctions_test.pl?js='+js, true);
 http.send(null);
}