use Socket qw( AF_INET6 inet_pton);
my $hostname = gethostbyaddr(inet_pton(AF_INET6,'::1'),AF_INET6)