Try this one:

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Ge
+cko/20051111 Firefox/1.5");
$ua->timeout(30);
[download]

LWP::Simple can't change timeout :-(