#!/usr/bin/perl
$c = time ;
$c = $c % 5;
if($c == 0){
$img = "micmic\.jpg";
}elsif($c == 1){
$img = "micmic2\.jpg";
}elsif($c == 2){
$img = "micmic3\.jpg";
}elsif($c == 3){
$img = "micmic4\.jpg";
}elsif($c == 4){
$img = "micmic5\.jpg";
}else{
$img = "micmic3\.jpg";
}
$\ = "";
#‰æ‘œ‚ð•Ô‚·
print "Content-type: image/jpeg\n\n";
open(IMG, "$img") || die "Can't open: $img";
print $_ while (<IMG>);
close(IMG);
exit;