>>972
ただソースをみるだけなら、これはダメかい?

#!/usr/bin/perl

use warnings;
use strict;
use WWW::Mechanize;

my $url = "http://www.google.co.jp/search?q=%E5%B1%B1%E7%94%B0";
my $mech = WWW::Mechanize->new();

$mech->get($url);
print $mech->content;