#! c:/perl/bin/perl.exe
use strict;

use Net::SSH::Perl;

my $host = 'VM701';
my $user = 'root';
my $pass = 'thepass';

my $ssh = Net::SSH::Perl->new($host);

$ssh->login($user, $pass);

my ($stdout, $stderr, $exit) = $ssh->cmd('ls -l');

$ssh->close;