ランダムスクリプトの仕様を変更したい

質問

以下ソースはランダムに画像を差し替えるスクリプトですが、これを利用して画像ではなくhtmlファイルを差し替えるようにしたいのですが可能でしょうか？

#!/usr/bin/perl

$n = 3*60*60; # 画像を変更する秒数
$imgdir="./image/";

if(!opendir(DIR,$imgdir)){
print "Content-type: text/html\n\n";
print "Directory open error.\n";
exit(1);}
$k = @file = grep /\.(?:jpg|gif)$/, readdir(DIR);
closedir(DIR);

$a = int(time / $n) % $k;

open(IMAGE, "$imgdir$file[$a]");
binmode(IMAGE);
$size=read(IMAGE,$image, -s IMAGE);
close(IMAGE);

if($file[$a] =~ /\.jpg$/){print "Content-type: image/jpeg\n\n";}
else {print "Content-type: image/gif\n\n";}
binmode(STDOUT);
print $image;
exit;

ど素人なもので試行錯誤しております（汗）。どうぞよろしくお願い致します。m(＿）m

回答No.1

osamuy

Content-Typeとして“text/html”を指定して、HTMLファイルを出力する、ってのでダメですか。

補足

ご回答どうもありがとうございます。

それは具体的には上記ソースのどの部分に挿入すればよいのでしょうか？