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