my($client, $client_addr) = $server->accept();

##</code><code>##

#only send if $client exists
$client->send() if $client;