#!/usr/bin/perl
#
# ランダムに画像を出力するCGI
# 

### 設定ここから ###

$ImageDir = 'img';     # 画像のあるディレクトリを設定
@ImageList = (         # ランダムに表示させたい画像のファイル名を列挙
  'neko1.jpg',
  'neko2.jpg',
  'neko3.jpg',
);
### 設定ここまで ###

$ImageMax = @ImageList;
$ImageNum = int(rand($ImageMax));
$ImagePath = "$ImageDir/@ImageList[$ImageNum]";
$ImageData = `cat $ImagePath`;
print"Content-type: image/jpeg\n\n";
print $ImageData;