my $tunnel1 = Net::SSH2->new(); $tunnel1->debug(1); $tunnel1->connect($host) or die "connect to DMZ failed"; $tunnel1->auth_password($user, $rzPass) or die "DMZ auth failed"; $tunnel1chan = $tunnel1->channel(); $tunnel1chan->shell(); $tunnel1->tcpip($host2, 22, '127.0.0.1', $rzPort); my $tunnel2 = Net::SSH2->new(); $tunnel2->connect('127.0.0.1', $rzPort) or die "connect to PLEX failed"; $tunnel2->auth_password($user, $yzPass) or die "PLEX auth failed"; #### libssh2_channel_open_ex(ss->session, pv_channel_type, len_channel_type, window_size, packet_size, ((void *)0) , 0 ) -> 0x1ea5664 libssh2_channel_direct_tcpip_ex(ss->session, (char*)host, port, (char*)shost, sport) -> 0x1ea5544 Net::SSH2: created new object 0x1f362fc Net::SSH2::DESTROY object 0x1f362fc Net::SSH2::Channel=GLOB(0x1d25ff4)Net::SSH2::Channel::DESTROY Net::SSH2::Channel::DESTROY Net::SSH2::DESTROY object 0x1caf124 #### my $tunnel1 = Net::SSH2->new(); $tunnel1->debug(1); $tunnel1->tcpip($host2, 22, '127.0.0.1', $rzPort); $tunnel1->connect($host) or die "connect to DMZ failed"; $tunnel1->auth_password($user, $rzPass) or die "DMZ auth failed"; $tunnel1chan = $tunnel1->channel(); $tunnel1chan->shell(); my $tunnel2 = Net::SSH2->new(); $tunnel2->connect('127.0.0.1', $rzPort) or die "connect to PLEX failed"; $tunnel2->auth_password($user, $yzPass) or die "PLEX auth failed";