threads内でsshの同時操作

threads->new(\&connect_ssh);
sub connect_ssh {
    my $ssh = Net::SSH::Perl->new();
    $ssh->login();
    $ssh->cmd();
}

的なことがやりたかったけど、Net::SSH::Perlは自動でパスワード認証できないっぽいのであきらめ。
（Permission deniedっていわれる）

Net::SSH::Expectは自動ログインできるけど、threads内で同時に$ssh->login仕様とするとSSHConnectionAbortedっていわれる。

とりあえずforkで作ってPOEへ移行するか。。。

------------
forkならNet::SSH::Expectでも同時接続できることを確認。