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";