#!/usr/bin/perl use CGI; use CGI::Carp qw( fatalsToBrowser ); use CGI::Ajax; my $cgi = new CGI; my $ajax = new CGI::Ajax('report' => \&report); print $ajax->build_html($cgi, \&main); sub main { $html< HTML_MAIN return $html; } sub report { $input1=shift; $input2=shift; $result=$input1.$input2; return $result; } #### onclick="report(['args__real','args__monk'],['report'])"