#### #!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";