use CGI qw(:standard);
    my $message = param('message');