Select Code to Download

use Socket qw( sockaddr_family sockaddr_in sockaddr_in6 inet_ntop AF_I
+NET );

...
my $addr_a = inet_ntop($fam, $addr_n);

say $addr_a;