while (my $client = $server->accept) {

##</code><code>##

while(1) { if( my $client = $server->accept) { #accept code...