use HTML::Entities;
use CGI;
my $cgi=new CGI;
my $message=$cgi->param('message');

$message=decode_entities($message);

my $message_fld_length=length($message);

print "$message_fld_length";