SELECT *, URL FROM google WHERE q = "perl monks" LIMIT 1

##</code><code>##

$VAR1 = {
    'cached_size' => '',
    'snippet' => '',
    '_u_r_l' => '',
    'summary' => 'Contains tutorials, discussion forums, <b>Perl</b> poetry, obfuscated code, and a large code repository.',
    'directory_category' => '',
    'url' => 'http://www.perlmonks.org/',
    'host_name' => '',
    'title' => '',
    'directory_title' => ''
    };

##</code><code>##

    SELECT * FROM google WHERE q = "perl monks" LIMIT 1

##</code><code>##

$VAR1 = {
    'cached_size' => '',
    'snippet' => '',
    '_u_r_l' => '',
    'summary' => 'Contains tutorials, discussion forums, <b>Perl</b> poetry, obfuscated code, and a large code repository.',
    'directory_category' => '',
    'host_name' => '',
    'title' => '',
    'directory_title' => ''
    };

##</code><code>##

use DBI;
use strict;
use Data::Dumper;

my $KEY = "See http://www.google.com/apis/ to get a key.";

my $dbh = DBI->connect("dbi:Google:", $KEY)
    or die("Can't connect to DB: " . $!);

my $sth = $dbh->prepare(qq[
    SELECT *, URL FROM google WHERE q = "perl monks" LIMIT 1
])
    or die("Can't prepare query: " . $!);

$sth->execute()
    or die("Can't execute query: " . $!);

while (my $r = $sth->fetchrow_hashref) {
    print Dumper($r), "\n";
}