#!/usr/bin/perl

use strict;
use warnings;

my $ns = system('host -avt AAAA pnrpv2.ipv6.microsoft.com');
print $ns, "\n";