use Net::Telnet;
@hosts = ("ncc1","ncc2","ncc3")

for ($x=0; $x <= $#hosts; $x++)
{
 $telnet = new Net::Telnet ( Timeout=>10,
                              Errmode=>'die');  
  $telnet->open("$hosts[$x]");
  $telnet->login('test', 'testuser');
  
  my @arr = $telnet->cmd('ifconfig -a');
  $telnet->close("$host");
  print "\n Probe - $host \n";
  print "\n @arr \n" ;
}