in reply to Client Server

You never send the client's IP back to the client.

print "Connection recieved from $name\n";

will just print it to the server's STDOUT. You would need to add

print NEW_SOCKET "Connection recieved from $name\n";

to also send it to the client.

In Section Seekers of Perl Wisdom