print $query->textarea(-name=>'SPCtext', -cols=>50, -rows=>10, -value=>$testText, -force=>1);

##</code><code>##

#!/usr/bin/perl -w

use CGI;

$query = new CGI;

print $query->header;
print $query->start_html();

print $query->start_multipart_form("POST", "test.pl"); 
print "Field Name:"; 
print $query->textfield(-name=>'FieldOne', -size=>25); 
print "Field Type:"; 
print $query->textfield(-name=>'FieldTwo', -size=>25); 
print "Field Length:"; 
print $query->textfield(-name=>'FieldThree', -size=>25);
print "<br>" .  $query->submit('Insert Field'); 

$testText = $query->param('SPCtext') . $query->param('FieldOne') . $query->param('FieldTwo') . $query->param('FieldThree');

print $query->textarea(-name=>'SPCtext', -cols=>50, -rows=>10, -value=>$testText, -force=>1);
print $query->submit('Save');
print $query->endform();

print $query->end_html();