Update: shmem wrote one that seems closer to what you are trying to do: Re: Net::SSH2 Interactive command example

Usually you use perl for this sort of thing if you want to automate something, in which case you don't need a shell.

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]

avoid the issue with a public key

You can use ssh's port forwarding to do this:

use strict;
use Net::SSH2;

my $ssh1 = Net::SSH2->new();
$ssh1->connect($host1) or die "connect to SSH1 failed";
$ssh1->auth_password('user', 'pass') or die "auth1 failed";
$ssh1->tcpip($host2, 22, '127.0.0.1', 9922);

my $ssh2 = Net::SSH2->new();
$ssh2->connect('127.0.0.1', 9922) or die "connect to SSH2 failed";
$ssh2->auth_password('user2', 'pass2') or die "auth2 failed";

# ... as many hops as you need ...
[download]

Its not working for me...after a few tests i can say, that it dont understand what to do with this line:



$ssh2->connect('127.0.0.1', 9922) or die "connect to SSH2 failed";
[download]

this line is not working!! no idea why...i tested the other lines with if(-command-){print "ok";} and every line prints its "ok" expect the given line with tcpip

You can't ssh to it with username and password?!?!?!