use warnings;
use strict;
use CGI qw( :standard );

my $word = param( "word" );

print header(), start_html( 'Using CGI.pm with forms' );
print p( 'Enter one of your favorite words here: ' );

print start_form(), textfield( "word" );
print submit( "Submit word" ), end_form();

print p( 'Your word is: ', b( $word ) ) if $word;
print end_html();