Net::SSH::Perl is and old and unmaintained module, with lots of bugs and almost impossible to install on Windows.

Net::SSH2 would make your life slightly better. It allows to run several commands over the same connection, but its API is too low level, making its operation unnecessarily difficult. You should be able to find versions of Net::SSH2 prepackaged for Windows.

Finally, I have been working for some time on Net::SSH::Any, a module that runs on top of Net::SSH2 or Net::OpenSSH providing a unified high level API. It is still a work in progress but simple operations as capturing the output of remote commands, already work flawlessly and it is far easier to use than the alternatives.

Thank you salva for your valuable comments and guidance. I will surely look out for the alternative as mentioned by you.

I use the following code in a script that executes several remote commands to deploy a system:

    $self->{ssh} = Net::SSH2->new();
    $self->{ssh}->connect($self->{host}) or die <<ERR;
Can't open an ssh connection to $self->{host}: $!
ERR
    $self->{ssh}->auth_password($opts{user}, $opts{pass}) or die <<ERR
+;
Can't login using ssh to $self->{host}: $!
ERR

...

sub sshSendCommand {
    my ($self, $cmd, $pollTime) = @_;
    my $chan = $self->{ssh}->channel();
    my $log  = '';
    my $timeDelta = sprintf "%4d:", time() - $self->{startTime};

    $pollTime ||= 500;
    print "$timeDelta ssh: <$cmd> (poll time: $pollTime)\n";
    $chan->exec($cmd);

    my @poll = {handle => $chan, events => ['in']};

    while ($self->{ssh}->poll($pollTime, \@poll)) {
        if ($poll[0]{revents}{channel_closed}) {
            print "$timeDelta channel closed\n";
            last;
        }

        next if !$poll[0]{revents}{in};

        my $buff;

        $log .= $buff while $chan->read($buff, 1024);
        next;
    }

    print "$log\n$timeDelta ssh command complete\n";
    return $log;
}
[download]

Thanks for the code snippet. However this one is making use of Net::SSH2. As mentioned above, I will be executing scripts from Windows client and want to avoid deploying additional Perl modules.

So, what reply do you expect?

You can write your own solution from scratch on top of plink which will cost you lots of effort or you can use any of the available modules from CPAN. It is your choice.

Nobody is going to write the code for you.