use strict;
use warnings;

use LWP::Simple;

my $url = "http://www.cpan.org/";

my $response = head($url)
   or die("Error fetching URL $url\n");

print($response->protocol(), ' ');
print($response->status_line(), "\n");
print($response->headers_as_string()); # $response->headers->as_string

##</code><code>##

use strict;
use warnings;

use LWP::UserAgent;

my $url = "http://www.cpan.org/";

my $ua = LWP::UserAgent->new();
my $response = $ua->get($url);  # or "head", "post", etc.

$response->is_success()
   or die("Error fetching URL $url\n");

print($response->protocol(), ' ');
print($response->status_line(), "\n");
print($response->headers_as_string());

##</code><code>##

use strict;
use warnings;

use LWP::UserAgent;

my $url = "http://www.cpan.org/";

my $ua = LWP::UserAgent->new();
my $response = $ua->head($url);  # or "get", etc.

print($response->protocol(), ' ');
print($response->status_line(), "\n");
print($response->headers_as_string());

##</code><code>##

use strict;
use warnings;

use LWP::UserAgent;

my $url = "http://www.cpan.org/";

my $ua = LWP::UserAgent->new();
my $response = $ua->head($url);  # or "get", etc.

print($response->as_string());

##</code><code>##

use strict;
use warnings;

use LWP::UserAgent;


sub print_deep {
   my ($response) = @_;

   if (my $previous = $response->previous()) {
      print("\n");
      print_deep($previous)
   }
   
   print("Request\n");
   print("-------\n");
   print($response->request->as_string());

   print("\n");

   print("Response\n");
   print("--------\n");
   print($response->as_string());
}


{
   my $url = "http://adaelis.com/";
   # Redirects to http://www.adaelis.com/

   my $ua = LWP::UserAgent->new();
   my $response = $ua->get($url);  # or "head", etc.

   print_deep($response);
}