アクセスカウンタの呼び出し方

質問

以下のような（アクセスカウンタ）をPerlで書きました

#!c:/Perl/bin/Perl.exe
print "Content-type:text/html\n\n";

&main;

sub main
{
　　　my $ninzu,@Hninzu;

　　　$ninzu=&yomikomi;
　　　@Hninzu=&sujibunaki(@Hninzu,$ninzu);
　　　print"<IMG SRC=http://localhost/data/suji/".$Hninzu[8].".gif>";
　　　print"<IMG SRC=http://localhost/data/suji/".$Hninzu[7].".gif>";
　　　print"<IMG SRC=http://localhost/data/suji/".$Hninzu[6].".gif>";
　　　print"<IMG SRC=http://localhost/data/suji/".$Hninzu[5].".gif>";
　　　print"<IMG SRC=http://localhost/data/suji/".$Hninzu[4].".gif>";
　　　print"<IMG SRC=http://localhost/data/suji/".$Hninzu[3].".gif>";
　　　print"<IMG SRC=http://localhost/data/suji/".$Hninzu[2].".gif>";
　　　print"<IMG SRC=http://localhost/data/suji/".$Hninzu[1].".gif>";
　　　print"<IMG SRC=http://localhost/data/suji/".$Hninzu[0].".gif>";
}

sub yomikomi
{
　　　my $ninzu;

　　　open(RH,"<","count.txt") or die"ファイルが見つかりません";
　　　$ninzu=<RH>;
　　　close(RH);
　　　open(WH,">","count.txt");
　　　$ninzu++;
　　　print WH"$ninzu";

　　　return $ninzu;
}
sub sujibunaki
{
　　　my @Hninzu,$ninzu,$i;

　　　@Hninzu=@_;
　　　$ninzu=shift;

　　　@Hninzu[8]=int $ninzu/100000000;
　　　@Hninzu[7]=int $ninzu%100000000/10000000;
　　　@Hninzu[6]=int $ninzu%100000000%10000000/1000000;
　　　@Hninzu[5]=int $ninzu%100000000%10000000%1000000/100000;
　　　@Hninzu[4]=int $ninzu%100000000%10000000%1000000%10000/10000;
　　　@Hninzu[3]=int $ninzu%100000000%10000000%1000000%100000%10000/1000;
　　　@Hninzu[2]=int $ninzu%100000000%10000000%1000000%100000%10000%1000/100;
　　　@Hninzu[1]=int $ninzu%100000000%10000000%1000000%100000%10000%1000%100/10;
　　　@Hninzu[0]=int $ninzu%100000000%10000000%1000000%100000%10000%1000%100%10;;

　　　return @Hninzu;
}

これを別のファイル(.html)からこのファイル(.plに)表示される画像
(カウンタ画像)だけを呼び出して.htmlに表示したいんですけど、
どうすればよろしいですか？
でしょうか？

回答No.1

umasikajiro

この方式だと SSI(EXEC CGI)で呼び出すかframeを使うかしか有りません
CGIでgif自体をContent-type: image/gif\n\n で表示させるのであれば
HTMLから <IMG SRC="hoge.cgi">で表示できますが
http://www2k.biglobe.ne.jp/~motoi/cdecgi04.html