#!/usr/bin/perl -w use strict; opendir(DH,'./preview-3'); my @list=grep(/jpg$/,readdir(DH)); closedir(DH); open(FH,'>./index.3.html'); print FH<<'DATA'; DATA foreach my $list (0..$#list) { if ($list!=0 && $list%5==0) { print FH qq#\n#; } print FH<<"DATA" DATA } print FH qq#\n

\n#; close(FH);