#!/usr/bin/perl

#  HTTP::Request is a subclass of HTTP::Message and therefore inherits its methods. 

# $method=;
# $uri=;
# $header=;
# $content=;
# $r = HTTP::Request->new($method, $uri, $header, $content) 


##################################################
# Create a user agent object
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);

##################################################
# Create a request
#       read  /usr/lib/perl5/site_perl/5.6.1/HTTP/Request.pm
my $req = new HTTP::Request GET => 'http://www.stilen.com/';
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
 

#################################################
# Create a user agent object
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$request = HTTP::Request->new(GET => 'http://www.oslo.net/');
$response = $ua->request($request);
##################################################