!usr/bin/perl
use strict;

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use URI::Heuristic;
use HTTP::Cookies;

# Make an appropriate URL for you ..
my $rawURL = shift or die "Pass an URL\n";
my $url    = URI::Heuristic::uf_urlstr ($rawURL);
$| = 1;
printf "%s => \n", $url;

my $ua = LWP::UserAgent->new();
my $req = POST 'http://www.justdial.com';
                [ city => 'Bangalore', q => 'Bhargava' ];
my $content = $ua->request($req)->as_string;
print $content;