­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ use strict; use warnings; use Test::More tests => 1; use IO::Socket::INET6; #funny IPv6 addresses my $srv = "dead:beef::1"; my $port = 6789; my $srvFlow = 4321; my $sck6 = IO::Socket::INET6->new( Domain => AF_INET6, Proto => 'tcp', LocalAddr => $srv, LocalPort => $port, LocalFlow => $srvFlow, Listen => 1, ReuseAddr => 1 ); # TEST ok(1, q{Testing that "sub configure" does not fail});