my $Abfrage = $db->prepare("select * FROM tb_name WHERE ..."); 
print $db->errstr; #Errorstring 
$Abfrage->execute (); 
 
while(my @Ergebnis = $Abfrage->fetchrow_array){ 
# ---> Sonderzeichen escapen 
@Ergebnis = map CGI::escapeHTML($_), @Ergebnis; 
print "$Ergebnis[0]&nbsp;|&nbsp;$Ergebnis[1]<br />\n"; 
} 

my $zz = 0; 
print "<p>\n"; 
while( ..... ){ 
	print "Datensatz"; 
	if(++$zz % 3 ){ 
		print "<br>\n"; 
	} 
	else{ 
		print "</p>\n<p>\n"; 
	} 
} 
if($zz % 3){ 
	print "</p>\n"; 
} 

my $zz = 0; 
 
print "Content-type: text/html\n\n"; 
print "<p>\n"; 
 
my $query2 = $db->prepare("select * FROM tabelle WHERE..."); 
print $db->errstr; #Errorstring 
$query2->execute (); 
 
if ($query2->fetchrow_array == 0) { 
 print "· Keine Einträge vorhanden.<br />&nbsp\;\n"; 
 print "</p>\n"; 
} 
else { 
 
 while(my @aktuell = $query2->fetchrow_array){ 
  
 # ---> Sonderzeichen escapen 
 @aktuell = map CGI::escapeHTML($_), @aktuell; 
  
 print "$aktuell[0] $aktuell[1]"; 
 if(++$zz %4){ 
 print "<br />\n"; 
 } 
 else{ 
 print "</p>\n<p>\n"; 
 } 
 } 
 if($zz % 4){ 
 print "<br />&nbsp\;</p>\n"; 
 } 
} 

#!/usr/bin/perl 
[..] 
my $zz = 0; 
my $query = $db->prepare("select * FROM td WHERE..."); 
print $db->errstr; #Errorstring 
$query->execute (); 
 
while(my @datensatz = $query->fetchrow_array){ 
print "<p>\n" if (!($zz++ % 3)); 
print "$datensatz[0] $datensatz[1] ..."; 
if($zz %3){ 
print "<br />\n"; 
} 
else{ 
print "</p>\n"; 
} 
} 
print "</p>\n" if ($zz % 3); 
print "<p>Nix eingetragen</p>\n" if (!$zz);