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");
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.
How to solve this error