#!/usr/bin/perl -w

use CGI qw/:standard/;
  
my @values;

if (param) {
    @values = param('name');
} 

print header, start_html, start_form;
print textfield(-name=>'name',
                -default=>$values[0],
                -override=>1);

print textfield(-name=>'name',
                -default=>$values[1],
                -override=>1);
print submit, end_form, print end_html;