sub new {

    ...

    while ($conn = $self->accept) {
        # serve request
    }
}