0: #!/usr/bin/perl
1: # CGI Animated GIF Pusher
2: 
3: # Harkening back to the days before GIF89, I needed one of these
4: # today. So, I wrote one and it works. But, as it turns out, not
5: # with the joy that is IE. Netscape, no problem.
6: 
7: print "Content-type: multipart/x-mixed;boundary=myboundary\n\n";
8: print "myboundary\n";
9: $| = 1;
10: @images = ('green.gif','blue.gif','red.gif');
11: foreach $image (@images) {
12: 	print "Content-Type: image/gif\n\n";
13: 	open IMAGE,"<$image" or die "bad image, $image";
14: 	print <IMAGE>;
15: 	close IMAGE;
16: 	print "\nmyboundary\n";
17: 	sleep 2;
18: }