#!/usr/bin/perl
use Net::SSH::Perl;
use strict;
use warnings;

my $host = "hostname";
my $pass = "passwort";
my $user = "benutzername";
my $ssh = Net::SSH::Perl->new($host, protocol => "1");
$ssh->login($user, $pass);

# test-command
(my $out, my $err, my $exit) = $ssh->cmd("ls -l");
print ("$out");
print ("$err");
print ("$exit");