use CGI;
		my $cgi = new CGI;
		my $modus = $cgi->param('Modus');
		
		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;

		my $dbname="test";
		my $username="root";
		my $pw="";
		
		my $data1 = "DBI:mysql:$dbname";
		my $data2 = DBI->connect($data1, $username, $pw, { RaiseError => 1 }) || die("Kann DB nicht öffnen!");
		
		# Wenn der Modus add ist, dann neue Daten hinzufügen
		if ($modus eq "add")
		{
			# SQL-Anweisung konstruieren:
			my $n = $cgi->param('name');
			my $o = $cgi->param('ort');
			my $t = $cgi->param('telefon');		
			
			my $sql = qq(INSERT INTO adressen VALUES("$n", "$o", "$t"));
			eval {
			    my $anfr=$data2->prepare($sql);
			    $anfr->execute;
			};
			
			if ($@)
			{
			    die "Fehler beim Hinzufügen: $@!";
			}					
		}
		
		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;
		
		# Code für Formular
		print qq(
		<br><br>
		<b>Neuen Datensatz hinzufügen</b>
		<form>
		<input type="hidden" name="Modus" value="add">
		Name:
		<input type="text" name="name"><br>
		Ort:
		<input type="text" name="ort"><br>
		Telefon:
		<input type="text" name="telefon"><br>		
		<input type="submit">
		</form>
		);