use Net::SSH2;
use IO::Socket::IP;
use Socket qw(:addrinfo SOCK_RAW);
use Socket6;

my $ipv6 = "2620:0:170:2531:60:165d:4f14:1068";
my $ipv4 = "10.243.106.8";
 
my $sock = IO::Socket::IP->new(
  
	PeerHost => $ipv6,
    PeerPort => "22",
	Timeout => 3
 ) or die "Cannot construct socket - $@";