Select Code to Download

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

...
        $chan2->ext_data('merge');
        $ssh2->auth(username => $rusr,password=>$rpwd);

        print $chan2 "su $user2 \n";
        print $chan2 "$pass2 \n";