gistfile1.txt

	my $client = Mojo::IOLoop->client( { address => '127.0.0.1', port => 1000 } => sub {
		my ( $client, $err, $stream ) = @_;

		$stream->write( $event => sub {
			say "event sent";
			$stream->close;
			$end->();
		});
		$stream->on(close => sub {
			my $stream = shift;
			say "eventd closed the connection";
			$end->();
		});
		$stream->on(error => sub {
			my ($stream, $err) = @_;
			say "error sending event: $err";
			$end->();
		});
		$stream->on(timeout => sub {
			my $stream = shift;
			say "timeout sending event";
			$end->();
		});
		say $err if $err;
		$end->();
	});