#!/usr/bin/perl

use Thread::Pool;			
use Net::SSH2;				
use strict;

open (MYINPUTELEMENTS, "./list.txt");		

my $pool = Thread::Pool->new(		
{
  workers => 10,					
  do => \&worker_parse,				
});

while (my $element = <MYINPUTELEMENTS>) {	
  if ($element =~ /(\d+)(\.\d+){3}/) {		
    $pool->job($element);				
  }
}
close (MYINPUTELEMENTS);	
$pool->shutdown;	

sub worker_parse {	
  my $inIP = $_[0];	
  chomp($inIP);	
  my $ssh2 = Net::SSH2->new();
  if ($ssh2->connect($inIP)) { 
    if ($ssh2->auth_password('user','pass')) {
    my $gssChannel = $ssh2->channel();
	  $gssChannel->exec('ls -l / | wc -l');
	  my $gssData;
	  my $gssLen = $gssChannel->read($gssData,8192);
	  chomp($gssData); print "gss: $gssData - ";
	  $gssChannel->close;
	  
	  my $lcsChannel = $ssh2->channel();
	  $lcsChannel->exec('ls -l /etc | wc -l');
	  my $lcs2Data;
	  my $lcs2Len = $lcsChannel->read($lcs2Data,8192);
	  chomp($lcs2Data); print "lcs2: $lcs2Data\n";
	  $lcsChannel->close;
	  $ssh2->disconnect;
    } else {
      print "Authentication Failed\n";
    }
  } else {
     print "Connection Failed\n";
  }
}