#!/usr/bin/perl -w

use strict;
use Data::Dumper;

use Net::SSH2;

my $remote_host = 'remote';
my $remote_user = 'vortura';
my $remote_pass = 'xxxxxxx';

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

$| = 1;

$ssh2->connect($remote_host) or die "connect failed";
$ssh2->auth_password( $remote_user, $remote_pass ) or die "auth failed";

my $chan = $ssh2->channel();
$chan->blocking(0);

my $ret = $chan->exec("ls -la /Users/vortura");

while(<$chan>) {
    print "OUT: ", $_;
}   
print "\n";
print $ret, "\n";

$chan->close;