#!/usr/bin/perl -w use CGI::Ajax; use CGI; sub functions { my $Fn = $_Get['Function']; my $input = shift; if(1) { return ("True"); } if(0) { return ("False"); } } sub Show_HTML { my $html = < Perl and HTML
    Enter a number:      Enter a function: 

EOT return $html; } my $cgi = new CGI(); my $pjx = new CGI::Ajax( 'functions' => \&functions ); print $pjx->build_html($cgi,\&Show_HTML);