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