gistfile1.pl

#!/usr/bin/perl
use strict;
use warnings;
use EV;
use AnyEvent::Handle;
use AnyEvent::Socket;

my @remebered;

tcp_server 'unix/', '/tmp/stop_read_test', sub {
	my ($client) = @_;
	$client = AnyEvent::Handle->new(fh => $client);
	push @remebered, $client;
	$client->on_read(sub {
		my ($client) = @_;
		$client->{rbuf} = '';
		print "read\n";
		$client->stop_read;
	});
};

EV::loop;