my $ua = WWW::Mechanize->new;
$ua->timeout (5);