#!/usr/bin/perl
use strict;
use warnings;

use Net::OpenSSH;
use File::Temp qw/ tempdir /;

# necessary minimum for CGI
print "Content-type: text/plain\n\n";

# prepare temp dir
my $temp = "/home/www-data";                                            

my $login_user= "xxxxx";
my $login_pass = "xxxxx";  


# open SSH session
my %opts = (
    user        => $login_user,
    password    => $login_pass,
    ctl_dir     => $temp, 
    strict_mode => 0            ## NOT recommended - see my comments
);

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

# perform command and print output

my @lines = $ssh->capture("sh int desc")
    or die "remote command failed: " . $ssh->error;
print "OUTPUT<br>\n";
print @lines;