#!C:\xampp\perl\bin\perl.exe -w # # Dateiname: myscript01.cgi # Autor: G. Carapoulios # Benutzung des Perl-Modules DBI (Database Interfaces) use DBI; # 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!";