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);
}