Select Code to Download

use IO::Socket::IP -register;

...
) or die "Cannot create socket - $@\n";

print "Created a socket of type " . ref($sock) . "\n";

c:\>ping ::1

...
    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
    Minimum = 0ms, Maximum = 0ms, Average = 0ms