#!/usr/bin/perl

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

my $queryString1 = 'restaurant';
my $queryString2 = 'New Delhi';
my $url = 'http://www.maps.google.com/maps?f=l&hl=en&geocode=&time=&date=&ttype=&view=text';
my $mechObject = WWW::Mechanize->new( autocheck => 1 );
$mechObject -> get($url);
$mechObject->form_number(1);
$mechObject->field("q", $queryString1);
$mechObject->field("near", $queryString2);
$mechObject->click("btnG");
print $mechObject -> content