use Magic::Name::Resolution
...
host2addr('www.google.com'); # print 1st IP addr returned, 4 or 6
host2ipv4('www.google.com'); # print 1st IPv4 addr returned
host2ipv6('www.google.com'); # print 1st IPv6 addr returned
...