chdir("img/db/$result[1]/mn");

my(@bilder);

push (@bilder, glob "*.jpg");
push (@bilder, glob "*.gif");


my $chk = 1;
foreach my $bild (@bilder) {
 print qq~<p class="dir-text"><img src="img/db/$result[1]/mn/$bild"></p>~;
 print "<br>" if $chk < 0; 
 $chk = - $chk;
}