Select Code to Download

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

$VAR1 = {
    'cached_size' => '',
...
    'title' => '',
    'directory_title' => ''
    };

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

$VAR1 = {
    'cached_size' => '',
...
    'title' => '',
    'directory_title' => ''
    };

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