#!/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 = @{$_[0]}; my $output = $input[0] . " is your id"; return( $output ); } sub Show_HTML { my $html= qq{

Student ID:
Student Name:
Address:
Department:
}; return $html; } 1;