#!/usr/bin/perl -w
use strict;
my $columns = 4;
my $title = "Dave's Crazy FLCL Avatar Gallery!";
my $validformats = "jpg|jpeg|gif|png";
print "Content-type: text/html\n\n";
print qq#
$title
#;
opendir(IMAGES, ".") or die;
my $filenum = 0;
print qq#\n#;
for my $file (sort grep { $_ =~ /(?:$validformats)$/ } readdir(IMAGES)) {
$filenum++;
if ((($filenum - 1) % $columns == 0) & $filenum > 1) {
print qq#
\n\n#;
}
print qq# 
$file | \n#;
}
print qq#
Check XHTML
#;