いまめっちゃ長いことに気づいたんですけどこのまま貼っていって良いのかなぁ・・・もし気に障ったなら途中で止めますんで一言お願いします
-------------------------------------------------------------------------------------------------------------------------
#=====================================================================
# UserAgent 情報を取得

$user_agent = $ENV{'HTTP_USER_AGENT'};
$user_agent =~ s/</</g;
$user_agent =~ s/>/>/g;

# UserAgent のチェック
if ($user_agent) {
foreach (@killua) {
if ($_ eq '') { next; }
$_ =~ s/\./\\./g;
$_ =~ s/\?/\\?/g;
$_ =~ s/\+/\\+/g;
$_ =~ s/\*/\.\*/g;
if ($user_agent =~ /$_/) { &putimage; }
}
}

#---------------------------------------------------------------------
# cookie チェック

if ($cookie_check) {

&cookie_get;
$co_check = time - $cookie_check * 60;
if ($get{$cookie_name} > $co_check) { &putimage; }

}