Select Code to Download

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')
+;
while (<$socket>) { print };