use strict;

use Net::SSH2;
#use Net::SSH2::Channel;

my $ssh2= Net::SSH2-> new();

$ssh2-> connect('Ip address') or die;
	
if($ssh2-> auth_password('user', 'pass')){
	
	print "ok";
	
	my $chan2 = $ssh2-> channel();
	$ssh2-> ($chan2);
	print $chan2 "uname\n";
	
	
}else {
	
	print "auth failed";
}