#!/usr/bin/perl

use strict;
use Net::Nslookup;

my $ip = nslookup( domain => 'www.yahoo.com', type => 'A' );

my $fqdn = nslookup ( domain => $ip, type => 'PTR' );

print "$ip -> $fqdn \n";