use CGI;
use DBI;

my $DB_NAME = "usr_web288_1";
my $DB_DSN = "DBI:mysql:database=$DB_NAME";
my $DB_USER = "web288";
my $DB_PASSWD = "XXXXXXXXXXX";

my $dbh = DBI->connect($DB_DSN, $DB_USER, $DB_PASSWD) or die "Fehler bei Datenbankverbindung: $!";
my @DB_Felder = $dbh->list_fields('mails');