#!/usr/bin/perl

use Net::OpenSSH;

local $\;
my $ssh = Net::OpenSSH->new('user:password@hostname');

die("Error: connection failed") if($ssh->error);

my ($out,$err) = $ssh->capture2("some command;");

print "> $out\n\n";
print "E $err\n";