#! /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(); }