The error message is pretty self-explanatory. $server is undefined so you can't call ->recv on it. Nowhere in your sample is $server declared or created. Take a look at $socket1. :)

You are using strict and warnings, right? These kinds of developer errors aren't impossible with them on but they are a lot easier to avoid.