(Concrete to IPv4 protocol)

              $sock = IO::Socket::INET6->new(PeerAddr => 'www.perl.org',
                                            PeerPort => 'http(80)',
                                            Domain => AF_INET ,
                                            Proto    => 'tcp');