A) $foo; print "yes" if exists %main::->{foo};
B) I don't think I have, but I can easily imagine a long running server doing so, for every connection it would create a new IO::Socket object, 1000 connections a day, 100 days, etc.