HEX

File: //usr/share/doc/libcgi-ajax-perl/examples/pjx_nobuild.pl
#! /usr/bin/perl -w

use strict;
use CGI::Ajax;

my $my_func = sub {
  my $arg = shift;
  return ( $arg . " with some extra" );
};

my $pjx = new CGI::Ajax( 'tester' => $my_func );
$pjx->JSDEBUG(1);
$pjx->DEBUG(1);

use CGI;
my $cgi = new CGI();
print $cgi->header();

$pjx->cgi( $cgi );

my $html = "";
  $html .= "<HTML>";
  $html .= "<HEAD>";

  $html .= $pjx;

  $html .= <<EOT;
  </HEAD>
  <BODY>
  <FORM name="form">
  <INPUT type="text" id="inarg"
    onkeyup="tester(['inarg'],['output_div']); return true;">
  <hr>
  <div id="output_div"></div>
  </FORM>
  <br/><div id='pjxdebugrequest'></div><br/>
  </BODY>
  </HTML>
EOT

if ( not $cgi->param('fname') ) {
  print $html;
} else {
  print $pjx->handle_request();
}