#!/usr/bin/perl -w $images = `ls /home/dusting/hart_house/s*.jpg`; if(length($images)==0){ die "no images to display..."; } #@image_list = split(/\n/,$images); $count = 0; print <<"END_HEAD"; Content-type: text/html