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">};}