Select Code to Download

  shift unless ref($_[0]); # shift if first arg is package name

sub _new_client {
    my $sock = $main_socket->accept();
...
        $conn->disconnect();
    }
}