open (FILE, '<', 'hostfile2') or die "Could not open 'hostfile' : $!";
my @SERVERS = <FILE>;
#print "AJAY <@SERVERS>\n";
foreach $server (@SERVERS)
{
	#print "[$server]\n";
	chomp($server);
	print "Accessing 'HOSTFILE' SERVER:				[$server]\n";

	my $opsys = getOS($server, $user, $password);
	print "Operating System is: [$opsys]\n";

	my $pform = getPlatform($server, $user, $password, $opsys);
	print "System Platform is:  [$pform]\n";
	
	my $host = getHost($server, $user, $password);
	print "Running on system:   [$host]\n";
	
	my $nic;
	my @files;
	for $nic (getNetworkInfo($server, $user, $password, $pform)) {
		if (defined $nic->{ip}) {
		print ">>>  IP4 Device: $nic->{device} is using: $nic->{ip} address\n" .
       "\tMask: $nic->{mask}\n" .
        "\tBroadcast: $nic->{bcast}\n";
    }
    if (defined $nic->{ip6}) {
  	print ">>>  IP6 Device: $nic->{device} is using: $nic->{ip6} address\n";
    }
    push(@files, getPlatformFiles($pform, $nic));
  }
  
  my %hash = map { $_ => 1 } @files;
	@files = keys %hash;

	foreach my $file (@files) {
		print "$file\n";
	}
}