Sorry, i forgot the half...this is my script so far:

use strict;
use Net::SSH2;

my $ssh1= Net::SSH2-> new();
my $buf;

$ssh1-> connect('ipaddress')
 or die "conncet to SSH1 failed";
    
$ssh1-> auth_password('user', 'pass') 
 or die "auth1 failed";

    my $chan1= $ssh1-> channel();
    
        $chan1-> blocking(1);
        $chan1-> exec('uname');
        $chan1-> read($buf, 100);
        print $buf, "\n";

        $chan1-> close;
[download]

Works fine -so far-. Now i need to establish the connection from the first SSH-server to the second...

The best will be to manage that with the commands i would give to my putty session...so the next would be "ssh- l user ipaddress" an the there is a password oO

No idea how to manage the password through the channel!!!!