eval {
        local $SIG{ALRM} = sub { die "TIME6661313" };
        alarm($SSH_TIMEOUT);
        local $/ = undef;
        $repl = <P>;
        close P;
        alarm(0);
    };
    if ($@) {
        if ($@ eq "TIME6661313") {
            die("SSH command $cmd timed out");
        } else {
            die($@);
        }
    }