use EV;
        use Coro;
        use HTTP::Server::EV;


        my $server = HTTP::Server::EV->new;

        my $bindto = IO::Socket::INET->new(
                                        Listen => 15,
                                        LocalAddr => 'localhost',
                                        LocalPort => 10080,
                                        Proto => 'tcp',
                                        # Blocking => 0,
                                 );
        warn $bindto;


*HTTP::Server::EV::listen = sub {
    my ($self, $socket, $cb, $params) = @_;

    die "You can`t bind two listeners on one port!\n" if $HTTP::Server::EV::listeners{$socket};

    if(int($socket) eq $socket){
        $params->{port} = $socket;
    }else {
        $params->{socket} = $socket;
    }
    $params->{cb} = $cb;


    $HTTP::Server::EV::listeners{$socket} = HTTP::Server::EV::PortListener->new($params);
};


        $server->listen($bindto, sub {
                my $cgi = shift;

                $cgi->attach(*STDOUT);
                $cgi->header;

                print "Just another Perl server\n";
        });

        EV::run;