use strict;
use warnings;

use Net::SSH::Perl;

my $server = "mycomp.mywork.office";

my $ssh = Net::SSH::Perl->new($server, options => ["BatchMode yes"])
    or die "Failed trying to create primary SSH connection\n";

$ssh->config->set('interactive', 1)
  unless defined $ssh->config->get('interactive');

$ssh->login("myname", "mypass") or die "Login failed (ssh)\n";

my $cmd = "ls -ltr";
my @response = $ssh->cmd("$cmd");
print "RESPONSE = @response\n";


output::
C:\perlfiles>perl sshtest.pl
The getpwuid function is unimplemented at C:/Perl/site/lib/Net/SSH/Perl.pm line
110.