use IO::Async::Buffer;

my $version = "uescsd v.proto";


my $sock = new IO::Socket::INET (
#       LocalHost => 'localhost',
        LocalPort => '7022',
        Proto => 'tcp',
        Listen => 1,
        Reuse => 1
        );
die "Could not create socket: $!\n" unless $sock;

my $buffer = IO::Async::Buffer->new(    handle=> $sock,
                                                on_incoming_data => sub{print 'test'});

while(1){}