sshLogin.pl

use Net::OpenSSH;
use strict;
use warnings;

my $host = "hostname";

# ログイン認証
my $ssh = Net::OpenSSH->new(
        $host,
        (
            user => 'loginUser',
            password => 'pass',
            port => '22',
        ),
    );

# 指定コマンドの実行とキャプチャの取得
my @ls = $ssh->capture("ls -l");
$ssh->error and die "remote ls command failed: " . $ssh->error;

print @ls;