For all the non-Germans here: the error message basically says "segmentation fault".

if($ssh2-> auth_password('user', 'pass')){
    
    print "ok";
    
    my $chan2 = $ssh2-> channel();
    $ssh2-> ($chan2);
[download]

That last line looks suspicious. $foo->($stuff) treats $foo as a sub ref, and passes $stuff to it. I don't think $ssh2 is a sub ref, so try to do without that line.

(Still perl shouldn't crash on it IMHO).