#!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Ajax; my $cgi= CGI->new; my $a= CGI::Ajax->new( 'test_elt_html' => \&test_elt_html ); $a->DEBUG(2); $a->JSDEBUG(2); print $a->build_html( $cgi, \&html_page); sub html_page { return <

test with div

test with span

test with p

some stuff

EOH ; } sub test_elt_html { my( $elt_html)= @_; print STDERR "IN:" . $elt_html , "\n"; return $elt_html; }