print "<TR><TD>",
   textfield(-name=>"key$i", -size=>13, -default=>$key),
   "</TR>\n"
;

##</code><code>##

textfield(-name=>"key$i", -size=>13, -override=>1)

##</code><code>##

use CGI qw/:standard/;

##</code><code>##

my $new_cgi = new CGI;

##</code><code>##

my $full_url = url();