Google モバイルAdSenseのPerlのコードがuse strictで動かないときの対処方法

Global symbol "@color_array" requires explicit package name at hoge.cgi line 18.,

たくさん、Global symbolだ、とPerlの怒りの叫びがありました。

コードを見直してみると、myで宣言されていない変数がたくさんあるのに、use
strict してるソースに貼り付けてしまったので、エラーが出ました。

というわけで、こんなカンジで直すと動きます。
channelやclientは各自の値にしてください。

ソース

#!/usr/bin/env perl
use strict;

use LWP::UserAgent;
use Time::HiRes qw(gettimeofday);
use URI::Escape;

sub google_append_color {
  my @color_array = split(/,/, $_[0]);
  return $color_array[$_[1] % @color_array];
}

my $google_dt = sprintf("%.0f", 1000 * gettimeofday());
my $google_scheme = ($ENV{"HTTPS"} eq "on") ? "https://" : "http://";
my $google_host = uri_escape($google_scheme . $ENV{"HTTP_HOST"});

my $google_ad_url = "http://pagead2.googlesyndication.com/pagead/ads?" .
  "ad_type=text" .
  "&channel=あなたのチャンネル" .
  "&client=ca-mb-pub-あなたのコード" .
  "&color_border=" . google_append_color("555555", $google_dt) .
  "&color_bg=" . google_append_color("EEEEEE", $google_dt) .
  "&color_link=" . google_append_color("0000CC", $google_dt) .
  "&color_text=" . google_append_color("000000", $google_dt) .
  "&color_url=" . google_append_color("0000CC", $google_dt) .
  "&dt=" . $google_dt .
  "&format=mobile_single" .
  "&host=" . $google_host .
  "&ip=" . uri_escape($ENV{"REMOTE_ADDR"}) .
  "&markup=xhtml" .
  "&oe=sjis" .
  "&output=xhtml" .
  "&ref=" . uri_escape($ENV{"HTTP_REFERER"}) .
  "&url=" . $google_host . uri_escape($ENV{"REQUEST_URI"}) .
  "&useragent=" . uri_escape($ENV{"HTTP_USER_AGENT"});

my $ua = LWP::UserAgent->new;
my $google_ad_output = $ua->get($google_ad_url);
my $google_ad = '';
if ($google_ad_output->is_success) {
  print $google_ad_output->content;
}