use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(2);
...

##</code><code>##

use LWP::Simple qw(get $ua);
$ua->timeout(2);
...

##</code><code>##

use LWP::RobotUA;
use WWW::RobotRules;

my $ua = LWP::RobotUA->new(...);
my $rules = WWW::RobotRules->new(...);
$ua->rules($rules);  # optional - defaults used otherwise
$ua->timeout(2);

my $response = $ua->get(...);
...