use strict;
use Socket;

my $addr = inet_aton("209.214.174.80");
my $host = gethostbyaddr($addr, AF_INET);