#!/usr/bin/perl -w use strict; use CGI::Ajax; use CGI; my $perl_func = sub { my $input = shift; print "got $input"; }; sub Show_HTML { my $html = ""; $html .= < CGI::Ajax Example
val1
EOT return $html; } my $cgi = new CGI(); # create a new CGI object my $pjx = new CGI::Ajax( 'jsFunc' => $perl_func ); $pjx->JSDEBUG(1); $pjx->DEBUG(1); print $pjx->build_html($cgi,\&Show_HTML); # this outputs the html for the page