#!/usr/bin/perl opendir CONTENT, "./content" or die "could not open content"; @content = readdir(CONTENT); closedir CONTENT; print "Content-type: text/html\n\n\n"; print < Artistic Wood Turning - Custom Made Wood Art
Gallery

Please click on images to view product information and a larger image.
ENDHTML print "
\n"; print "\n"; $count =1; @array = grep(/\d\d\-\d\d\d[abcde]*\.jpg/,@content); foreach $piece (@array) { #print "$piece"; if ($piece =~ /^(\d\d-\d\d\d[abcde]*)\.jpg$/) { #print "$1"; print""; $mod = $count%4; $count++; print "\n\n" if $mod==0; } } print "\n
"; print <
ENDHTML