# Datenbank-Verbindung aufbauen
my $dbh = DBI->connect(
'dbi:mysqlPP:database=pizzadb;host=127.0.0.1;port=3306',
'root', '');
my $not_connected = '';
if (! $dbh) {
$not_connected = 'NICHT'; # Zeichenkette falls fehlgeschlagen
}
else {
# Datenbank-Verbindung beenden
$dbh->disconnect;
}
print "Content-type: text/html\n\n";
print "
Hallo Welt, ich bin $not_connected MySQL-fähig!
DEBUG: $DBI::errstr
";