use FileHandle;
use IO::File;
use Socket;
+use Socket6;
@ARGV==2 or die "need <zone> and <domain> arguments\n";
($zone,$subdomain) = @ARGV;
defined($addr= inet_aton $_) or
die "input:$.:$owner:invalid IP address\n";
$data= inet_ntoa($addr);
+ } elsif ($type eq 'AAAA') {
+ defined($addr= inet_pton(AF_INET6, $_)) or
+ die "input:$.:$owner:invalid IPv6 address\n";
+ $data = inet_ntop(AF_INET6, $addr);
} elsif ($type eq 'CNAME') {
$data= domainsyntax_rel("input:$.:$owner:canonical name",$_).".";
} elsif ($type eq 'MX') {