# I ended up changing this
my $client = $sock->accept();

# and this
while() {
    while ($client) {
        . . .
}

# to this
my $client;

# and this
while() {
    while ($client = $sock->accept) {
        . . .
}