Select Code to Download

sub setup_listener {
    my $self = shift;
...
        or croak "bind to @{[$self->host||'*']}:@{[$self->port]}: $!";
    listen( HTTPDaemon, SOMAXCONN ) or croak "listen: $!";
}

    $self->host('localhost') if ! defined $self->host;
    $self->host('localhost') if  $self->host eq '0.0.0.0';