#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use LWP::Simple;


## set URL
my $url = "http://google.com";
my $ua = LWP::UserAgent->new();

my $res = $ua->get($url);
$res->content_type('text/html');
my $response = $res->content;
print "Response Type = ".$res->content_type;
print "\nResponse Status ".$res->status_line." Res code ";
## view

print "\nResponse = $res->content \n";