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

        eval {$ssh2->connect($rip) ; };

        if( $@ )
        {print qq{ Error: Cannot connect to $rip : SSH service Failed }; exit 1; }

        return "Error: Authenticate fail for $rip" unless $ssh2->auth(username => $rusr,password=>$rpwd);


        $chan2 = $ssh2->channel;
        die "Can not create a shell on channel " unless $chan2->shell;
        die "Can not set blocking field " unless $chan2->blocking(0);

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