$out = $ssh->capture({stdin_data => <<EOS});
ls
foo this
foo that
rm -R /
EOS

# or...

($socket, $pid) = $ssh->open2socket;
print $socket "ls\n";
while (<$socket>) { print };
waitpid($pid, 0);