- or download this
my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func);
print $pjx->build_html($cgi, \&Show_Html);
...
# remaining html code
print $cgi->end_html();
}
- or download this
sub Show_HTML {
my $html = <<EOT;
...
EOT
return $html;
}
- or download this
# html generated by Show_Html
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-U
+S">
...
# and again html generated by cgi::ajax
<html>
</html>