#!/usr/bin/perl

use Net::SSH::Perl;
use strict;
use Net::OpenSSH;

my $host = "192.168.0.24";
my $ssh = Net::OpenSSH->new($host);
$ssh->error and
  die "Couldn't establish SSH connection: ". $ssh->error;

#$ssh->system("ls /tmp") or
#  die "remote command failed: " . $ssh->error;