my $client = $sock->accept();

##</code><code>##

while(){

    while ($client) {