AFAIR, you have to test for each bit in the returned vec. eg, vec($fl1bit,fileno FILE1, 1); ... if ($read & $fl1bit) {..., etc. Try IO::Socket (in the core distribution) instead.
If you find out how you got a glob reference to a hex address let us know. Its not familiar to me.

  p