#!/usr/bin/perl print "Content-Type: text/html\n\n"; print "\n"; print "

\n"; $dir = "images/sarahs_kitties"; if(!opendir(DIR,$dir)) { print "Internal error locating images!
\n"; } @files = readdir(DIR); foreach(@files) { push @images,$1 if(/([MPS][a-z]+_\d+)\.jpg/); } %used = (); show_images(@images); print "

\n"; print "\n"; sub show_images { my(@pics) = @_; my($i) = 0; print "\n"; foreach(@pics) { next if($used{$_}); $used{$_} = 1; if(!($i++%4)) { print "\n\n"; } print "\n"; } print "

\n"; }