my $ssh = Net::OpenSSH->new($host, user=>$user, password=>$pass); $ssh->error and die "unable to connect to remote host: " . $ssh->error; my ($socket, $pid) = $ssh->open2socket({ssh_opts => '-s'}, 'xmlagent'); ($socket, $pid) = $ssh->open2socket; while (<$socket>) { print }; waitpid($pid, 0);