use strict;
use warnings;
use CGI;

my $q = CGI->new;

# Print the HTTP header
print $q->header;

# Get the content of the text area.
# Replace 'textarea_name' with the actual 'name' attribute of your HTML textarea.
my $textarea_content = $q->param('message');

# Print the content exactly as received
####print "Content of the text area:\n";
print $textarea_content;