use LWP::Simple qw($ua); $ua->timeout(40); # set timeout, default 180