#!/usr/local/bin/perl

# This filename must be changed. The file it points to
# must contain a list of GIF files on your system,
# specified by complete paths. 

$gifListFile = "/CHANGE/THIS/PATH/giflist.txt";

open(IN, $gifListFile);
@list = <IN>;
close(IN);

print "HTTP/1.0 200 OK\n";
print "Content-type: multipart/x-mixed-replace;boundary=goober\n\n";

foreach $name (@list) {
	$name =~ s/\n//g;
	# Now output the file 
	print "\n--goober\n";
	print "Content-type: image/gif\n\n";

	open(IN, $name);

	while (read(IN, $buffer, 4096)) {
		print $buffer;
	}
	close($name);
	# A short delay to make sure each frame is appreciated
	sleep(1);
}

print "\n--goober--\n";

exit 0;