#!/usr/bin/perl use CGI; use CGI::Carp qw( fatalsToBrowser ); use CGI::Ajax; use warnings; use strict; my $cgi = new CGI; my $ajax= new CGI::Ajax('report' => \&report); print $ajax->build_html($cgi, \&main); sub main { my $html = <

HTML return $html; } sub report { my $input1=shift; my $input2=shift; my $result=$input1.$input2; return $result; }