404 Net：Googleを使用しているエラー

Question

私はIRCで使用する簡単なボットと私の友人を書いています。 このモジュールが見つかりましたが、何らかの理由で、私が例を辿っても実際に検索することはできません。
モジュールは私のコードをオフに基づいていますhere.
例を見ることができますが私の知る限り、私はどんなミスをしていないよ、言うことができるようにhere.

を見ることができます。

デバッグを有効にすると、この出力が表示されます（デバッグを有効にして最後の行を取得するだけです）。

<p><b>404.</b> <ins>Thatâs an error.</ins> 
<p>The requested URL <code>/search/beta2</code> was not found on this server. 
<ins>Thatâs all we know.</ins> 
404 Not Found at /usr/lib/perl5/vendor_perl/5.8.8/SOAP/Lite.pm line 3720 

マイコード;私は、エラーメッセージが出ていなぜ

$msg =~ s/^google//g; # Get query 
my $google = Net::Google->new(key => GOOGLE_API_KEY, debug => 1); # Create search instance 
my $search = $google->search(); # Build query 
$search->query($msg); 
$search->starts_at(0); 
$search->max_results(100); 
$search->filter(0); 

$search->results(); # Search google 
my $random = int(rand(100)); 
my $count = 0; 

foreach my $result (@{$search->results()}) 
{ 
    if ($count == $random) 
    { 
     $irc->yield(privmsg => CHANNEL, $result->title() || "No Title"); 
     $irc->yield(privmsg => CHANNEL, $result->URL()); 
    } 
    $count++; 
} 

任意のアイデアですか？
私はuse Net::Google;とuse SOAP::Lite;を持っています。私はSOAPディレクトリをチェックしました。Lite.pmは間違いなくそこにあります... googleは役に立たなかったので、少し損失があります。

Answer 1

use Google::Search; 
my $search = Google::Search->Web(query => "rock"); 
while (my $result = $search->next) 
{ 
    print $result->rank, " ", $result->uri, " ",$result->title."\n"; 
}