#!usr/bin/perl 

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(2);
$ua->env_proxy;
my $response = $ua->get('http://www.justdial.com');
#open(STDOUT, '>', 'just_dial.html');
if ($response->is_success) {
    print $response->decoded_content;
}
else {
    die $response->status_line;
}