chdir("../../pics/$DD{id}");
my(@bilder);push (@bilder, glob "*.jpg");
push (@bilder, glob "*.gif");foreach my $bild (@bilder) 
{      
  print qq{<IMG SRC="../../pics/$DD{id}/$bild">};
}