use Socket qw( sockaddr_family sockaddr_in sockaddr_in6 inet_ntop AF_INET );

my $sockaddr = getsockaddr($sock);     # Or: $sock->sockname()
my $fam = sockaddr_family($sockaddr);
my $addr_n = $fam == AF_INET
   ? (sockaddr_in($sockaddr))[1]
   : (sockaddr_in6($sockaddr))[1];
my $addr_a = inet_ntop($fam, $addr_n);

say $addr_a;