use DBI;
use SQL::DBIforms;

my $connect_file = '/etc/www/.mysql.www';

my $dbh = DBI->connect( "DBI:mysql:database=userish;host=localhost;" .
                        "mysql_read_default_file=$connect_file;" );

my $db_fields = SQL::DBIforms::make_form_fields($dbh, 'userish');

for my $field ( @{db_fields} ) {

    next if $field->type eq 'DATE'; # want to stamp in background
    print 
        $field . ": \n",
        ucfirst $field->form_field, 
        $field->is_required ? ' (required)' : '', # for NOT NULL
        "\n<p>\n";
}