perlquestion 0day I can not figure out where and what code I have to insert, to set the time to make a connection. <code> use AnyEvent::HTTP; http_request GET => "$url", headers => { 'Host' => $host, 'Connection' => 'keep-alive', 'User-Agent' => 'Mozilla/5.0 (Windows NT 6.1) AppleWebKit/536.8 (KHTML, like Gecko) Chrome/20.0.1108.0 Safari/536.8', 'Content-Type' => 'application/x-www-form-urlencoded', 'Referer' => $host }, tcp_connect => sub { my ($host, $service, $connect_cb, $prepare_cb) = @_; tcp_connect $ip, $service, sub { $connect_cb->(@_); }, sub { $prepare_cb->(@_); }; }, sub { #my ($body, $hdr) = @_; callback ($_[0], $_[1], $ip, $host, undef, undef, undef, $error_count, $redirect); $cv->end; }; </code>