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

my $url = 'http://www.perlmonks.org/';
my $ua = LWP::UserAgent->new(env_proxy => 1, keep_alive => 1, timeout => 30);
my $res = $ua->get($url);

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 success\n";
   print $res->status_line . "\n";
}