#!perl
use strict;
use warnings
use HTML::Entities;
use CGI;
my $cgi=new CGI;
my $message=$cgi->param('message');
$message=decode_entities($message);
my $message_fld_length=length($message);
# Obviously, if I call this script as a CGI script, it won't work unless I send the
# minimal set of HTTP headers!
print "Content-Type: text/html\n\n";
print "$message_fld_length";