Unfortunately, this doesn't allow for all valid forms of an IP address, including such things as 127.1. See the Socket manpage for the function inet_aton on which to base such a function.

-- Randal L. Schwartz, Perl hacker