#!/usr/bin/perl -w

use strict;

open(INPUT_FILE, "<HOSTLIST>") or die "Cannot open: $!";
my @array = <INPUT_FILE>;
close(INPUT_FILE) or die "Cannot close: $!";

for my $line (@array) {
	my @output = `dig A $line`;
	print("="x50,"\n");
	print ("@output\n\n");
}