あっ、色々書き直し

◆ topimg.cgi
opendir(DIR, "topimg/");
@files = grep { /^\./ && /\.jpg$/ } readdir(DIR);
close(DIR);
$imgcnt = @files;
$imgnum = int(rand($imgcnt));

open(IN, "topimg/$files[$imgnum]");
read(IN, $jpegdata, (-s IN));
close(IN);

binmode(STDOUT);
print "content-type: image/jpeg\n\n";
print $jpegdata;


◆ index.html
<img src="topimg.cgi">

詳細なディレクトリ構造がわからんので、使う際は自分の環境に合わせて変更してください