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)]),

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Pretty;
use CGI::Carp qw(fatalsToBrowser);
use DBI;

my $q = new CGI;

##</code><code>##

%in = map { $_ => $q->param($_) } $q->param;
	
if ($in{'submit'} ne 'New Entry')
{
.
.
$requestID = $in{'requestID'};
$sql = "SELECT title, firstname, lastname, address1, address2, city, state, zipcode, zipextra, phonehome, phonework, phonecell, email, username, role, approved FROM members WHERE UID = $requestID";
....code to generate table with the values from the db inserted into the fields...
}
else
{
....code to generate table with empty fields...
}