($client) = $socket->accept();

my $read = "";
my $buffer;

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

##</code><code>##

DEBUG Point: 1
DEBUG Point: 2 

##</code><code>##

DEBUG Point: 3
Test Data