### set up the useragent object
my $ua = LWP::UserAgent->new();
$ua->timeout( $TIMEOUT ) if $TIMEOUT;
$ua->agent( $USER_AGENT );
$ua->from( $FROM_EMAIL );
####
my $ua = LWP::UserAgent->new(...);
URI::Fetch->fetch($uri, 'UserAgent' => $ua) };
####
use LWP::UserAgent;
use LWP::ConsoleLogger::Easy qw/debug_ua/;
my $ua = LWP::UserAgent->new(...);
debug_ua($ua, 10);