#!/usr/bin/perl
# CGI Animated GIF Pusher

# Harkening back to the days before GIF89, I needed one of these
# today. So, I wrote one and it works. But, as it turns out, not
# with the joy that is IE. Netscape, no problem.

print "Content-type: multipart/x-mixed;boundary=myboundary\n\n";
print "myboundary\n";
$| = 1;
@images = ('green.gif','blue.gif','red.gif');
foreach $image (@images) {
	print "Content-Type: image/gif\n\n";
	open IMAGE,"<$image" or die "bad image, $image";
	print <IMAGE>;
	close IMAGE;
	print "\nmyboundary\n";
	sleep 2;
}