#! /usr/bin/perl -w use strict; use CGI::Ajax; use CGI; my $func = sub { my $input = shift; return "got input: $input " ; }; sub Show_HTML { my $html = < CGI::Ajax Example
Enter Something: 
Enter Something: 
EOT } my $cgi = new CGI(); # create a new CGI object my $pjx = new CGI::Ajax( 'jsfunc' => $func ); # the send in some extra headers; print $pjx->build_html($cgi,\&Show_HTML, { '-expires' => '1d', '-charset' => 'ISO-8859-1'} );