my $sock = IO::Socket::IP->new(
	 Family => Socket->AF_INET6,
	PeerHost => $ipv61,
    PeerPort => "22",
	Timeout => 3
 ) or die "Cannot construct socket - $@";