#! /usr/bin/perl use strict; use warnings; use CGI; use CGI::Ajax; my $cgi = new CGI; my $pjx = new CGI::Ajax( 'exported_func' => \&too_many_nums ); print $pjx->build_html( $cgi, \&Show_HTML); sub too_many_nums { my $output = ""; my $input = shift; if( length($input) > 10 ) { $output = "Too many numbers!"; } return( $output ); } sub Show_HTML { my $html = < Enter something:

EOHTML return $html; } ##

##

#! /usr/bin/perl

use strict;
use warnings;
use CGI;     
use CGI::Ajax;

my $cgi = new CGI;
my $pjx = new CGI::Ajax( 'exported_func' => \&too_many_nums );

print $pjx->build_html( $cgi, \&Show_HTML);

sub too_many_nums 
{
	my $output = "";
	my $input = shift; 
	   	
    if( length($input) > 10 )
    {
	    $output = "Too many numbers!";
    }
    
    return( $output );
}

sub Show_HTML 
{
    my $html = <
    
    
		
	

      Enter something: 
        
      

      
    
      
EOHTML
  
    return $html;
}