#!/usr/bin/perl

use Socket6; # ab 5.14 reicht 'use Socket'
my @res = getaddrinfo('ipv6.google.com','http',AF_UNSPEC,SOCK_STREAM );
my $sock;
while (! $sock and @res) {
    my ($fam,$type,$proto,$saddr,$cname) = splice(@res,0,5);
    socket($sock,$fam,$type,$proto) or die $!;
    connect($sock,$saddr) and last;
    undef $sock;
}
$sock or die $!;