01 #!/usr/bin/perl
02
03 use Socket6; # as of 5.14 'use Socket'
04 my @res = getaddrinfo('ipv6.google.com','http',AF_UNSPEC,SOCK_STREAM );
05 my $sock;
06 while (! $sock and @res) {
07     my ($fam,$type,$proto,$saddr,$cname) = splice(@res,0,5);
08     socket($sock,$fam,$type,$proto) or die $!;
09     connect($sock,$saddr) and last;
10     undef $sock;
11 }
12 $sock or die $!;