# Datenbank-Verbindung aufbauen my $dbh = DBI->connect( 'dbi:mysqlPP:database=pizzadb;host=127.0.0.1;port=3306', 'root', '') || die "Kann keine Verbindung zum MySQL- Server aufbauen: $DBI::errstr\n"; # Datenbank-Verbindung beenden $dbh->disconnect; print "Content-type: text/html\n\n"; print "Hallo Welt, ich bin MySQL- fähig!";