#AnyEvent::Socket::tcp_connect $uri->host, $uri->port, sub {
    AnyEvent::Socket::tcp_connect $uri->as_string, 80, sub {
    my $fh = shift;
    unless($fh)
    {
      $done->croak("unable to connect to ".$uri->as_string." $!");
      return;
    }