Agreed, this approach does simplify things somewhat - The incorporation of the Socket stuff does however have the advantage of ensuring that the IP address (hostname) extracted is valid.

 

perl -e 'print+unpack("N",pack("B32","00000000000000000000000111001010")),"\n"'