#!usr/bin/perl -w
use strict;
use WWW::Mechanize;


my $ua = WWW::Mechanize->new;

my $base_url = 'http://search.justdial.com/srch/search_cwa.php?srch=true&city=Chennai result=&city=&searchtype=Multicuisine+Restaurants&resultType=&area=&new_area=&Stype=category&choices=&intermid=true&docId=&smsAlert=&emailAlert=&NameAlert=&sinfo=&smsDetail=&img=&img_check=&seeAlso=&sms_visible=&sms_button=&Lowcat=&lowest=&return_page=&magic_mobile=&magic_email=&magic_sinfo=&magic_Detail=&magic_seeAlso=&magic_name=&magic_tel=&login_name=&login_pass=&login_name_review=&login_pass_review=&img_forget=&screen_name=&login_name1=&login_pass1=&comp=&cid=&review_div=&ADVSEARCH=&city=Chennai&txtname=&txtadd=&Street=&area=&Pin=&txt_company=&txtphone=&jdG=&search_type_string_company=&search_type_string=';
$ua->cookie_jar(HTTP::Cookies->new());
$ua->default_header('User-Agent' => 'Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/532.0 (KHTML, like Gecko) Chrome/3.0.195.38 Safari/532.0');

open(DATABASE, ">just_dial.html") || die "$!\n";
DATABASE->autoflush(1);

$ua->get($base_url);
print DATABASE $ua->content();