#!/usr/bin/perl 
  
use Net::SSH::Perl; 
  
my $host = 'x.x.x.x'; 
my $user = 'user'; 
my $password = 'P@ssw@rd!'; 
  
#-- set up a new connection 
my $ssh = Net::SSH::Perl->new($host); 
#-- authenticate 
$ssh->login($user, $password); 
#-- execute the command 
my($stdout, $stderr, $exit) = $ssh->cmd("uname -a"); 
print "$stdout\n";