>>884
即席で作りました。どうぞ（動作チェックしてません。修正きぼん）
#!usr/bin/perl
$imgfile = int(rand(3));
open(IN, "../img/$imgfile.jpg");
@IMG = <IN>;
print "Content-type: image/jpeg\n\n";
ptint @IMG;
#一つ上に作ったimgフォルダ内に0.jpg〜2.jpgまでを設置