#!/usr/bin/perl $dir = "."; header(); if (opendir(DIR, $dir)) { foreach(readdir(DIR)){ image($_) if(/.+\.(png|jpg|jpeg)$/i); } closedir(DIR); } footer(); #-- print header --# sub header { print << "_END_"; Content-type:text/html _END_ } #-- print image --# sub image { print << "_END_"

_END_ } #-- print footer --# sub footer { print "\n"; }