#!/bin/perl
#Convert a fully qualified domain name into its IP address(es).
use Socket;

@entry = gethostbyname('indira.uu.nl')
	or die "$0: couldn't find indira.uu.nl\n";

foreach $ip (@entry[4 .. $#entry]) {
	print inet_ntoa($ip), "\n";
}

exit 0;
