print $cgi->start_td({valign=>'TOP'}), "Message:  ", $cgi->end_td,
      $cgi->start_td, $cgi->textarea({name=>'MESSAGE', wrap=>'SOFT', rows=>24,
                                      cols=>80, tabindex=>3, -default=>"On $date, $from wrote:\n$message"}),

##</code><code>##

$replytxt = "On $date $from wrote $message";
print $cgi->start_td({valign=>'TOP'}), "Message:  ", $cgi->end_td,
      $cgi->start_td, $cgi->textarea({name=>'MESSAGE', wrap=>'SOFT', rows=>24,
                                      cols=>80, tabindex=>3, -default=>$replytxt}),