#!/usr/bin/perl -w

use strict;
use Net::SSH::Perl;
my $user = "username";
my $pass = "password";
my $domain = ".mydomain.com";
my $ssh;
my $host;
my @hosts = qw(host1 host2);

my $lscmd = "ls -ltr";

foreach $host (@hosts){
 print "$host\n";
        $ssh = Net::SSH::Perl->new("$host$domain", protocol => 2, interactive => 0, options => [ "Password Authentication yes" ], (debug=>'true'));

        $ssh->login($user, $pass);
        my ($lsout, $lserr, $lsexit) = $ssh->cmd($lscmd);
 print "lsout = $lsout\n";
 print "lserr = $lserr\n";
 print "lsexit = $lsexit\n";
}