#!/usr/bin/env perl 
use strict;
use warnings;
use Net::DNS;

my $res = Net::DNS::Resolver->new ();

print "Any:  " . $res->query('www.google.com')->pop('answer')->rdstring .  "\n";
print "IPv4: " . $res->query('www.google.com', 'A')->pop('answer')->rdstring . "\n";
print "IPv6: " . $res->query('www.google.com', 'AAAA')->pop('answer')->rdstring . "\n";