#!/usr/local/bin/perl

@file = ('murai-w.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif');

{
	local(@temp);
	srand;
	push(@temp, splice(@file, rand(@file), 1))
		while @file;
	@file = @temp;
}

print "Content-type: image/gif\n\n";
open(F, "/stage/htdocs/Japan/Theme/sense/profiles/image/@file[0]");
while (<F>) {
	print $_;
}
close(F);
