$host="192.168.0.1";
$user="guru";
$pass="abc123";
$cmd="ls";
use Net::SSH::Perl;
my $ssh = Net::SSH::Perl->new($host,debug=>1,use_pty=>1);


$ssh->login($user,$pass);
    $ssh->cmd($cmd);