while (my $client = $server->accept) {
  ...
}
eval { close $client } # autodie in use