Well, your server never looks for any further messages from the client. After establishing a connection, the server prints the first line of data from that client, and then just goes back to wait for a new connection from another client.

You need to have some sort of loop which looks for additional input from the current client. If you plan on handling multiple clients at the same time, you will probably want to use select (or IO::Select). perlipc should prove helpful as well.

P.S. Your code appears to have been slightly munged, around the lines where input is being read.