#!/usr/bin/perl -w
use strict;
use CGI::Ajax;
use CGI qw(:all);
my $cgi = new CGI;
my $pjx = new CGI::Ajax('submitted_formdata' => \&process_formdata);
print $pjx->build_html($cgi,\&show_some_html);
sub show_some_html {
return <<'END_HTML';
Form without post warnings
Please fill in the form:
To view some other page goto Perlmonks
Then try back button
END_HTML
}
sub process_formdata {
my $surname = shift;
return "Thank you for submitting your surname as '$surname'";
}