#!/usr/local/bin/perl
use strict;
use Socket;

my $server = gethostbyname("codeploy.codeen1.org");
if ($server eq "") {
    print "zero\n";
} else {
    print inet_ntoa($server);
}