#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Socket;

my $dom = shift;
unless ($dom) {
    print STDERR <<'...';
macdig <hostmame>
...
    exit 1;
}

my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyname($dom);
print inet_ntoa($_), "\n" for @addrs;
exit 0;