#!/usr/bin/perl

use Net::SSH2;

my $IP      = "192.168.1.2";
my $PRIVKEY = "/home/user/.ssh/id_rsa";
my $PUBKEY  = "/home/user/.ssh/id_rsa.pub";
my $USER    = "remoteUser";
my $PASS    = "mySecretPassphrase";

my $ssh = Net::SSH2->new();
$ssh->connect($IP) or die("connect(): $!\n");
print "  * connected\n";
$ssh->auth_publickey($USER,$PUBKEY,$PRIVKEY,$PASS);
print "DEBUG - post authentication\n";
print "  * authenticated\n" if($ssh->auth_ok);

my $channel = $ssh->channel() or die("channel(): $!\n");
print "  * got channel\n";

$channel->shell();
print "  * got shell\n";

print $channel "ls -a\n";
while(<$channel>)
{
	print ">$_<";
}

$channel->close()