my $socket=IO::Socket::INET->new(
LocalAddr=>"127.0.0.1",
LocalPort=>"9000",
Type=>SOCK_STREAM,
Proto=>'tcp',
Listen=>20,
Blocking=>0
) or die " socket can not create $@";
$socket->autoflush(1);
my $cv=AnyEvent->condvar;
my $wait=AnyEvent->io(
fh=> $socket,
poll=>"r",
cb=>sub {
$cv->begin;
$new=$socket->accept;
while(<$new>)
{
print $_;
}
close($new);
$cv->end;
}
);