#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;

my $lwp = LWP::UserAgent->new();
my $req = POST 'http://www.example.com', [ city => CityName', search => 'Widget', area=> 'area' ];
my $content = $lwp->request($req)->as_string;
# Printing Content ..