# HTML-Header und Begrüßung
		print "Content-type: text/html\n\n";
		print "Guten Tag! Ihre Adress-Datenbank:<br><br>";
		print "<table>";
		print "<tr><th>Name</th><th>Wohnort</th><th>Telefonnummer</th></tr>";
		
		use DBI;
		
		# Hier richtige Angaben eintragen!
		my $dbname="test";
		my $username="root";
		my $pw="";
		
		# Datenbank öffnen
		my $data1 = "DBI:mysql:$dbname";
		my $data2 = DBI->connect($data1, $username, $pw, { RaiseError => 1 }) || die("Kann DB nicht öffnen!");
		
		# SQL-Anweisung
		my $sql="SELECT * FROM adressen";
		
		my $abfr1=$data2->prepare($sql);
		$abfr1->execute;
		
		# Datensätze abrufen
		while (@ergf = $abfr1->fetchrow_array)
		{
			my $name = $ergf[0];
			my $ort = $ergf[1];			
			my $telefon = $ergf[2];			
			# qq kann sich über mehrere Zeilen erstrecken:
			print qq(
				<tr>
					<td>$name</td>
					<td>$ort</td>
					<td>$telefon</td>
				</tr>
			);
		}
		print "</table>";
		$abfr1->finish;