Select Code to Download

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

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

use CGI qw/:standard/;

my $new_cgi = new CGI;

my $full_url = url();