#!/usr/bin/perl -Tw

use strict;
use CGI qw(:standard);

print header;

if (param('foo')) {
   print "you sent ", param('foo');
}
else {
   print start_html,start_form,textfield('foo'),
      submit,end_form,end_html,
   ;
}