use warnings;
use strict;
use IO::Socket::INET6;

my $reader = IO::Socket::INET6->new(
	PeerAddr  => 'ubuntu.com',
	PeerPort  => 80,
	Proto     => 'tcp',
	MultiHomed => 1,
	Timeout    => 1,
);

if (! $reader) {
	print "Failed to connect : $!\n";
} else {
	print "success : $!\n";
}
