$imgpath="meinpfad"; $imgpath2="meinpfad1"; $pos=0; $upname=""; $count=0; @names=readdir(CURDIR); print "Content-type: text/html", "\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "  \n"; print "  \n"; print "  \n"; print "
\n"; print "
\n"; print "\n"; print "  \n"; print "    \n"; print "  \n"; print "
\n"; scrolling='yes'>\n"; print "\n"; print "\n"; for $name(@names) {  if ($count==0)    {      print "\n";    }  $upname=uc($name); ## .jpg    $pos=index($upname,".JPG");  if ($pos > 0)    {      print "\n";      $count=$count+1;    } ##  if ($count==3)    {      print "\n";      $count=0;    } } closedir(CURDIR); if ($count>0)  {    print "\n";  } print "

$name
\n"; print "
\n"; print "  
\n"; print "\n";