print $query->textarea(-name=>'message',
                       -rows=>10,
                       -columns=>50);

then ...

my $message = $query->param('message');
...
<input type="hidden" name="message" value="$message">