my $ssh = Net::SSH::Perl->new($host, debug=>1, use_pty=>1 );
#-- authenticate
$ssh->login($user, $password);