[Ssh-sftp-perl-users] Problem With Net::SSH

[cheerla s. <ch....@gm...>]

Hi All ,

I am trying to do ssh to a machine from my client using the following CODE :

use Net::SSH qw(sshopen2);
use strict;

  my $user = "root";
  my $host = "changeme";
  my $cmd = "ls /root/";

  sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || die "ssh: $!";

  while (<READER>) {
      chomp();
      print "$_\n";
  }

  close(READER);
  close(WRITER);

When I execute this code it says "*Permission denied
(publickey,keyboard-interactive)*." .Am I missing something here ?

The host I am trying to login is a SUSE machine .
Please suggest me the solution to get of this problem .

Regards,
SreeHari Ch