Select Code to Download

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

...
}
print "DEBUG Point: 3\n";
print "$data \n";

DEBUG Point: 1
DEBUG Point: 2

DEBUG Point: 3
Test Data