Select Code to Download

my $table = 'uregisternew';
my @fields = qw( country firstname lastname userid password address1 c
+ity state province zippostal email phone favorites remaddr gender inc
+ome dob occupation age );
my $fields = join(', ', @fields);
...
$sth = $dbh->prepare($sql);
$sth->execute();
$sth->finish();

my $table_name = $dbh->quote_identifier(uregisternew);
my @fields = qw( country firstname lastname userid password address1 c
+ity state province zippostal email phone favorites remaddr gender inc
+ome dob occupation age );
my $fields = join(', ', map { $dbh->quote_identifier($_) } @fields);
...
$sth = $dbh->prepare($sql);
$sth->execute();
$sth->finish();