#!/usr/bin/perl -w
use strict;
$|=1;
use CGI;
my $q = new CGI;
use vars qw(%in);
CGI::ReadParse();
print 
    $q->header(),
    $q->start_html(), 
    "The value of the antique is $in{antique}.\n",
    $q->start_form(), 
    $q->textfield(-name=>'antique'), 
    $q->end_form(),
    $q->end_html();