use strict;
use warnings;
use Net::SSH::Perl;

my $user = '';
my $pass = '';
my @host = qw(host1 host2);

for my $host (@host) {
   my $ssh = Net::SSH::Perl->new($host, protocol => "2,1");
   $ssh->login($user,$pass);
   
   my ($stdout, $stderr, $exit) = $ssh->cmd('hostname');
   print STDOUT $stdout if $stdout;
   print STDERR $stderr if $stderr;
   print "remote command exited with [$exit]\n";
}