pipe my($r_pipe), my($w_pipe);
$ssh->capture({stdin_fh => $r_pipe}, ...);