For a simplified example, I used this:

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Ajax;

my $cgi = new CGI;
my $pjx = CGI::Ajax->new( 'myFunc' => \&request_handler );
$pjx->js_encode_function( 'encodeURIComponent' );
print $pjx->build_html( $cgi, \&Show_HTML, { '-charset' => 'UTF-8', '-
+Cache-Control' => 'no-cache, must revalidate' });

sub request_handler {
  #more work here
}
[download]