#!/usr/bin/perl

use strict;
use warnings;
use Net::Nslookup;

my $name = Net::Nslookup->nslookup;
$name = nslookup( domain => 'yahoo.com' );
print "name=$name\n";