$client->send("\r\n");
while (1) {
  my $msg;
   if($client->connected){
        $client->recv( $msg, 1024 );
       print "$msg\n"
    } 
# do closing up here, a webserver won't keep an open socket for you
# each connection is new
}