#!/usr/bin/perl -w
use strict;
use CGI;
my $q = CGI->new;
print $q->header,
    , $q->start_form(-action=>$q->url)
    , $q->textfield(-name=>'foo')
    , $q->submit
    , $q->end_form
;
print "You entered :" . $q->param('foo') if $q->param;