( my $temp = $FORMDATA{TextArea} ) =~ s/\015?\012/\015\012/g; # CR+LF!
print $cgi->textarea( 'data', $temp, $rows, $cols );