... I'm assuming that it does return.

I think it doesn't. The source goes something like this:

sub new {

    ...

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

i.e., before returning, it enters an accept loop, as typical for daemons listening on a socket.