use Data::Dumper;
...
my $ua = LWP::UserAgent->new;
print Dumper $ua;
...
my $res = $ua->get(...);
print Dumper $res;
...

##</code><code>##

c:\@Work\Perl>perl -wMstrict -le
"{ package Foo;
   use Data::Dump qw(pp);
   ;;
   sub new {
     my $class = shift;
     return bless { show_progress => 'not so fast',  @_, } => $class;
     }
   sub show_progress {
     my $self = shift;
     print 'Real Thing: ', pp $self;
     }
   }
 ;;
 my $object_reference = Foo->new(foo => 'bar',  hi => 'lo');
 ;;
 $object_reference->show_progress;
 print 'A: ', $$object_reference  {show_progress};
 print 'B: ',  $object_reference->{show_progress};
"
Real Thing: bless({ foo => "bar", hi => "lo", show_progress => "not so fast" }, "Foo")
A: not so fast
B: not so fast