#!/usr/bin/perl -w
use strict;

use Data::Dump qw(dump);
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
   $ua->timeout(10);

my $req = HTTP::Request->new(GET => 'http://my.yahoo.com');
warn "Dump request: " . dump( $req );

my $res = $ua->request($req);
warn "Dump Response: " . dump( $res );