Select Code to Download

print table(
Tr({-valign=>"TOP"},
    td(["First Name", textfield(-name=>'firstname', -size=>80, -value=
+>'', -override=>1)]),
    td(["Last Name", textfield(-name=>'lastname', -size=>80, -value=>'
+', -override=>1)]),
    td(["Address", textfield(-name=>'address1', -size=>80, -value=>'',
+ -override=>1)]),

#!/usr/bin/perl
use strict;
...
use DBI;

my $q = new CGI;

%in = map { $_ => $q->param($_) } $q->param;
    
...
{
....code to generate table with empty fields...
}