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