#!/usr/bin/perl -w
use strict;
use Net::Nslookup;

$Net::Nslookup::DEBUG++;
$Net::Nslookup::DEBUG_NET_DNS++;
print "IP (A record): " . nslookup(host => "yahoo.com", type => 'A');