use Net::hostent;
use strict;

my $host = gethost("209.214.174.80");
print $host->name, "\n";