#!/usr/bin/perl -w

use strict;
use Net::Nslookup;

my $name=nslookup(domain=>"yahoo.com");
print("name=$name\n");