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

my $result = fcntl($client, F_SETFL, O_NONBLOCK);

my $read = "";
my $buffer;
print "DEBUG Point: 1\n";
while (sysread($client,$buffer,1024)) {
    print "DEBUG Point: 2\n";
    $read .= $buffer;
}
print "DEBUG Point: 3\n";
print "$read\n";