IPv6/IPv4のアクセス画像表示

IPv6環境からアクセスしてきた時に、「via IPv6」と表示したくて、スクリプト作りました。
かなり簡単です。

判別方法はIPv6のコロンのあるなしだけ。
IPv6/IPv4のアクセスに応じて出力画像を変えます。

#!/usr/bin/perl

if($ENV{'REMOTE_ADDR'} =~ /:/){
        open(IMG, "./ipv6.jpg") or die;
}else{
        open(IMG, "./ipv4.jpg") or dir;
}

binmode IMG;
binmode STDOUT;
print "Content-type: image/$imgtype\n\n";
print while (<IMG>);
close(IMG);

exit(0);

・access_image.cgi（プログラム本体）　←右クリック保存してください
・ipv4.jpg（IPv4用画像）
・ipv6.jpg（IPv6用画像）

興味があれば自由に使ってください。