>>902
防御機能を備えたVer.2を作成しました。出来ればこっちを使って下さい。

#!/usr/local/bin/perl
$imgfile = int(rand(3));
if (open (IN, "../homepage/$imgfile.jpg")) {
@IMG = <IN>;
print "Content-type: image/jpeg\n\n";
print @IMG;
close (IN);
}
#一つ上のimgフォルダにx = 3ならば0.jpg 1.jpg 2.jpgを設置。
#x = 10ならば同様に0.jpg 〜　9.jpgまでを設置。
#動作確認済みではありますがが、このスクリプトを使用することによって
#生じたいかなる損害に対しても、作者は一切補償致しません。