#!/usr/bin/perl -w open(LIST, "list"); 
 while(<LIST>) {

  @nodes=(<LIST>); 
  chomp; 
  my $nodename=`nslookup $_ | awk -F Name: '{ print $2 }'`;  
  print $nodename; } 
  
close(LIST);