#!/usr/local/bin/perl

open(GIFDIR, "ls *.gif |") || die "No .gif files\n";
open(GIFINDEX,">gifindex.html");

FILE:
while (<GIFDIR>) {
	chop $_;
	print GIFINDEX "$_ <IMG ALIGN=MIDDLE SRC=\"$_\"> <br> \n";
	next FILE;
}
