#!/usr/bin/perl

use strict;
use warnings;
use REST::Google;

REST::Google->service('http://ajax.googleapis.com/ajax/services/search/web');

REST::Google->http_referer('http://example.com');

my $res = REST::Google->new(
        q => 'perl regex',
        start => 4,
);

die "response status failure" if $res->responseStatus != 200;

my $data = $res->responseData;

use Data::Dumper::Concise;
warn Dumper ( $data );