This is only a suggestion.. but try using sysread() instead of <$Client>. Also you can specify Blocking => 0 as an argument to the socket object creation method.