#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use LWP 5.00;
use URI::URL;


my $url='http://www.google1.com/';

my $ua = LWP::UserAgent->new(env_proxy => 1,keep_alive =>1, timeout =>30);
my $header = HTTP::Request->new( GET => $url);
my $req = HTTP::Request->new('GET', $url,$header);

#PASS REQUEST
my $res = $ua->request($req);


#GET RESULTS
if($res->is_success)
{
   print "New url :",$url,"\n";
   print "Response Headers:\n";
   print $res->headers_as_string;
   print '='x70,"\n",$res->as_string(), '='x70,"\n";
   print "Content_type:".$res->content_type . "\n";

}
else
{
   print "No response\n";
   print $res->status_line . "\n";

}