lambda {
    context $socket;
    writable {
        print $socket "GET $url HTTP/1.0\r\n\r\n";
        my $buf = '';
        readable {
            my $n = sysread( $socket, $buf, 1024, length($buf));
            return "read error:$!" unless defined $n;
            return $buf unless $n;
            again;
        };
    };
};