The HTML Form :

word:

The server side script (simple-ajax-example.cgi) :

#!/usr/bin/perl -w

use CGI;

$query = new CGI;

$secretword = $query->param('w');

$remotehost = $query->remote_host();

print $query->header;

print "

The secret word is $secretword and your IP is $remotehost.

";