Select Code to Download

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