#!/usr/bin/perl
# script to verify that value is a 4 letter word

use strict;
use CGI qw(:all);

$|=1; # no I/O buffering

my $word = param("word") || '';

print "content-type: text/html\n\n";
if ( $word =~ /\b\w{4}\b/ ) {
  print "<p style=\"font-family: courier; color: green\"><-- OK</p>\n";
} else {
  print "<p style=\"font-family: courier; color: red\"><-- ERROR: not a 4 letter word!</p>\n";
}