# return an IO::Lambda object for a given $host
sub http
{
    my $host = shift;

    my $socket = IO::Socket::INET-> new( 
        PeerAddr => $host, 
        PeerPort => 80 
    );

    return lambda {
        context $socket;  # argument stack for other calls

        # register a callback for when $socket is writable
        write {
            print $socket "GET /index.html HTTP/1.0\r\n\r\n";
            my $buf = '';
            # register a callback for when $socket is readable
            read {
                return $buf unless 
                    sysread( $socket, $buf, 1024, length($buf));
                # restart the "read" state if more is available
                again;
            }
        }
    }
}