#!/usr/bin/perl use strict; use CGI; use CGI::Ajax; my $cgi = new CGI; my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func ); print $pjx->build_html( $cgi, \&Show_HTML); sub perl_func { my $input = shift; my $output = $input . " <-было введено."; return( $output ); } sub Show_HTML { my $html = < Enter something:

EOHTML return $html; }