#!/usr/bin/perl

use Net::Nslookup;

my $name = Net::Nslookup->nslookup;
$name = nslookup( domain => '66.94.234.13', type => 'PTR' );

print $name, "\n";