I haven't done it that way. I've used IO::Socket::INET which provides the Blocking method. If it's set to 0, the socket become non-blocking.

Anonymously yours,
Anonymous Nun