net::openssh的使用情况

hh9net

use Net::OpenSSH;
open BH, "</root/quanxin/diannao1";
while ( $k = <BH> ) {
    chomp($k);
    my $ssh = Net::OpenSSH->new($k);
    $ssh->rsync_put(
        {
            exclude    => '*~',
            recursive  => 1,
            verbose    => 1,
            safe_links => 1
        },
        '/root/quanxin/sed.sh',
        '/root/'
    );
    $ssh->system("/root/sed.sh")
      or die "remote command failed: " . $ssh->error;
    print $k;
}
close BH;



IP放在diannao1的文本里

现在遇到的问题是：
运行一两次后，他就像阻塞了一样，没反应了，希望有这方面经验的朋友说说