use strict;
use Net::Telnet;

foreach(@hosts){
  if (!fork()) {
    my $telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
    $telnet->open($_);
    telnet->login('test', 'testuser');
    my @arr = $telnet->cmd('ifconfig -a');
    $telnet->close();
  }
}