# Generate a text field for data entry
print $query->h1('Please enter some text');
print $query->textfield({-name=>'TextfieldOne',
-default=>'Enter your text here',
-size=>50,
-maxlength=>100});
# Extract out whatever the contents of our text field were.
my $textInput = $query->param(-name=>'TextfieldOne');
# Generate our output
print $query->p('The text you previously entered was:'), $query->br();
print $query->em({-align=>'center'}, $textInput);