use IO::Handle;
# ...
$socket_handle->blocking(0);