# Generate a text area for data entry
print $query->h1('Please enter some more text');
print $query->textarea({-name=>'TextareaOne',
-default=>'Enter lots of your text here',
-rows=>4,
-columns=>60});
# Extract out whatever the contents of our text area was.
my $textInput = $query->param(-name=>'TextareaOne');
print $query->p('The text area contents were:'), $query->br();
print $query->em({-align=>'center'}, $textInput);