#!/usr/bin/perl -w
use strict;
use CGI::Ajax;
use CGI qw(:all);
use WWW::Google::Calculator;
my $cgi = CGI->new;
my $pjx = CGI::Ajax->new('submitted_formdata' => \&process_formdata);
print $pjx->build_html($cgi,\&show_some_html);
sub show_some_html {
return <<'END_HTML';
Google Calculator
END_HTML
}
sub process_formdata {
my $surname = shift;
my $calc = WWW::Google::Calculator->new;
return $calc->calc($surname) || 'ERROR ' . $calc->error;
}