use Net::SSH::Perl;
  use strict();



my $host = "";
my $user = "";
my $password = "";

#-- set up a new connection
my $ssh = Net::SSH::Perl->new($host,debug=>1,use_pty=>1);
#-- authenticate
$ssh->login($user, $pass);
#-- execute the command
my($stdout, $stderr, $exit) = $ssh->cmd("ls -l /home/$user");

##</code><code>##

Error -----
Name "main::pass" used only once: possible typo at Untitled2 line 17.
Can't locate object method "new" via package "Net::SSH::Perl" (perhaps you forgot to load "Net::SSH::Perl"?) at Untitled2 line 15.