ソフトフロントトップページで使われている機能と類似したもの。

（ＳＳＩ版・ＣＧＩ版）
●サイトファイル構成 
http://???/~foo/bar/index.htmlに設置する場合（すべての必要ファイルは同一ディレクトリにあることが必須条件）

 /~foo/bar  ┳ index.html       このファイルにコメント文（SSI）または<IMG>タグをＤ＆Ｄします。（属性以外は編集可能です）
(chmod 755) ┣ rand.pl          Perlスクリプト
            ┣ rand_pl.log      <IMG SRC="???">を格納したファイル：選択された１行がそのまま表示される。
            ┣ .htaccess        SSIを使用可能にするためのファイル（ファイル名がドットではじまります）。
            ┣ (rand.cgi)       CGIスクリプト
            ┗ (rand_cgi.log)   ファイル名のみを格納したファイル
ＳＳＩでPerlスクリプトを呼び出しています。
HTMLファイルへの書き出し：<!--#exec cmd="./rand.pl"-->
※SSI版のみ<IMG>タグの属性が指定できます。
<IMG>タグからCGIスクリプトを呼び出しています。
HTMLファイルへの書き出し：<IMG SRC="./rand.cgi">
ＳＳＩで呼び出されるPerlスクリプトのソース
#!/usr/bin/perl

#ランダム画像表示スクリプト

#ログファイルのパス
$log_file = "./";

#ログファイル名
$log_file .= "rand_pl.log";

if (open (LOG, "$log_file")){
		@logs = <LOG>;
	close (LOG);
} else {
	print "\"File does not exist : $log_file\"";
	die "\"File does not exist : $log_file\"";
}

srand(time|$$);
$seed = int (rand($#logs)) + 1;

print "$logs[$seed]";

exit;
<IMG>タグで呼び出されるＣＧＩスクリプトのソース
#!/usr/bin/perl

#ランダム画像表示スクリプト

#ログファイルのパス
$log_file = "./";

#ログファイル名
$log_file .= "rand_cgi.log";

#画像ファイルのパス
$src = "./";

if (open (LOG, "$log_file")){
@logs = <LOG>;
close (LOG);
} else {
print "\"File does not exist : $log_file\"";
die "\"File does not exist : $log_file\"";
}

srand(time|$$);
$seed = int (rand($#logs)) + 1;
$src .= $logs[$seed];

print "Content-type: image/gif\n\n";
if (open (IMAGE, "$src")) {
while (<IMAGE>) {
print;
}
close (IMAGE);
} else {
die "\"File does not exist : $src\"";
}

exit;