multithreading - スレッドが ssh 接続でスタックする (perl)

Question

私は、スレッドを作成し、同時にマシンのリストを調べて物事をチェックするというアイデアのスクリプトに取り組んでいます。スレッドが「ssh ......」を使用して別の端末に入ると、スレッドがスタックして強制終了できないようです。また、機能していないように見えるタイマーもあります。

コードは次のとおりです。

sub call_cmd{
    my $host = shift;
    my $cmd = shift;
    my $command = $cmd;
    my $message;

    open( DIR, "$cmd|" ) || die "No cmd: $cmd $!";
    while(<DIR>){
        $message.=$_;
        print "\n $host $message \n";
    }
    close DIR;

    print "I'm here";
}

sub ssh_con($$){

my $host = $_[0]; 
my $cmd = "ssh $host -l $_[1]";
call_cmd($host,$cmd);

}

ssh が返す出力メッセージが表示されますが、次の出力に到達しません。

これは、スレッドを作成するためのコードです。

foreach(@machines){
    my $_ = threads->create(thread_creation,$_);
    $SIG{ALRM} = sub { $_->kill('ALRM') };
    push(@threads,$_);
}

sub thread_creation(){
    my $host =  $_;

    eval{
        $SIG{ALRM} = sub { die; };
        alarm(5);
        ssh_con($host,"pblue");
        alarm(0);
    }
}

出力:

 home/pblue> perl tsh.pl

 ssh XXXXX -l pblue

 ssh XXXXX -l pblue

  XXXXX Last login: Mon Sep 30 10:39:01 2013 from ldm052.wdf.sap.corp


  XXXXX Last login: Mon Sep 30 10:39:01 2013 from ldm052.wdf.sap.corp