404 使用网络::谷歌时出错

Question

我只是在为我和我的朋友编写一个简单的机器人，供我在IRC上使用。找到了这个模块，但由于某种原因，即使我遵循了这些示例，我也无法让它实际搜索。
模块可以在这里看到。
我的代码基于的示例可以在这里看到。

据我所知，我没有犯任何错误。

当我打开调试时，我会收到此输出（仅在调试打开时获得最后一行）;

<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 肯定在那里......谷歌一直没有帮助，所以我有点不知所措。

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";
}