use Data::Dump qw/ dd pp /;
use LWP::Simple qw/ $ua /;
$ua->show_progress( 1 );
dd( $ua->get( q{http://example.com/} ) );
__END__