#! /usr/bin/perl -w use strict; package main ; my $tester = new Tester ; $tester->run ; package Tester ; use base qw(CGI::Application); use CGI::Ajax; sub setup { my $self = shift; $self->run_modes([qw( start )]); } sub Show_HTML { my $html = < CGI::Ajax Example
Enter Something: 
Enter Something: 
EOT } sub calc { my $input = shift; return "got input: $input " ; } sub start { my $self = shift; my $pjx = new CGI::Ajax( 'jsfunc' => \&calc ); $pjx->JSDEBUG(2); my $text = $pjx->build_html($self,\&Show_HTML ); return $text ; }