初めまして。初心者です。

　複数の画像ファイル（※）から、１つの画像を日毎に変えて表示したいのです。
１つの画像ファイルを選ぶ方法はランダムでもローテーションでも構いません。
（※）画像ファイルは増やしていく予定なので、自動的に画像のみのファイル数を取得できるようにしたいのです。

Perlで以上のようなプログラミングをし、サイトを作りたいのです。
是非、教えてください。よろしくお願い致します。

#!/usr/local/bin/perl

#日付の取得
$today = (localtime(time))[3];

#更新日の取得
open(OPEN,"./lastdate.log");
@log = <OPEN>;
close(OPEN);

#日付変更時に画像の変更
if($log[0] != $today){
 #画像データの全読み込み（ＧＩＦのみ）./gifディレクトリを指定。
 opendir(DIR, "./gif");
 @imagefiles = grep { /\.gif/ } readdir(DIR);
 closedir(DIR);
 #画像ファイルのランダム取得
 $image = "./gif/".$imagefiles[rand(@imagefiles)];

 #データの更新
 open(OUT,"> ./lastdate.log");
 print OUT "$today\n";
 print OUT "$image";
 close(OUT);
}else{
 #同じ日付なら同じ画像
 $image = $log[1];
}
#GIF画像の出力
print "Content-type: image/gif\n\n";
#画像の書込
open(IMG,"$image");
binmode(IMG);
print while(<IMG>);
close(IMG);

これで<img src="gazou.cgi">とかで呼び出せるかと思います。
ＣＧＩで使うのであれば普通にprint"<img src=$image>";でいけると思います。

　ありがとうございます。
大変うれしいです。
いつかｓｉｍ様のようにプログラミング出来るようがんばりたいと思います。