connecting to multiple hosts using Net::SSH2

[monnappa appaiah]

Hi all,


        I'm using windows machine and i'm using Net::SSH2 module to connect
to remote machine

below is the code i'm using, its working fine if i'm connecting to one host

#!/usr/bin/perl -w
use strict;
use Net::SSH2;


my $ssh2 = Net::SSH2->new();
$ssh2->connect("hostname") or die "Unable to connect host $@ \n";
$ssh2->auth_password('<username>','<password>');
my $chan = $ssh2->channel();
$chan->exec('ls -al');
my $buflen = 10000;
my $buf1 = '0' x $buflen;
$chan->read($buf1, $buflen);
print "BUF1:\n", $buf1,"\n";
$chan->exec('exit');
$ssh2->disconnect();



How can i use the same piece of code to read a list of hosts from a text
file and then connect to all the hosts in that text file.....I tried the
below code but its not working....can somebody please help me with this.





#!/usr/bin/perl -w
use strict;
use Net::SSH2;

open INPUT, "< input.txt"

while (<INPUT>) {
my $ssh2 = Net::SSH2->new();
$ssh2->connect("$_") or die "Unable to connect host $@ \n";
$ssh2->auth_password('<username>','<password>');
my $chan = $ssh2->channel();
$chan->exec('ls -al');
my $buflen = 10000;
my $buf1 = '0' x $buflen;
$chan->read($buf1, $buflen);
print "BUF1:\n", $buf1,"\n";
$chan->exec('exit');
$ssh2->disconnect();
}