Shell Programming and Scripting

#!/usr/bin/perl -w
use Net::SSH::Perl;
use POSIX;
use Term::ANSIColor qw(:constants);
use strict;

my @fwsrvip = ("10.0.0.21","10.0.0.23") ;
my %fwsrv = ("10.0.0.21","fw1","10.0.0.23","fw2") ;
my $hlckdate = strftime "%Y-%m-%d",localtime ;
my $user = "usr" ;
my $pass = "passwd";
my $cmd = "uname -a";

my $stdout;
my $stderr;
my $stdexit;

foreach (@fwsrvip) {
    my $ssh = Net::SSH::Perl->new($_,protocol =>'2',port =>22 ,debug => 1
    );

    $ssh->login($user, $pass);
    
    $ssh->register_handler("stdout",sub {my ($channel,$buffer) = @_; print $buffer->bytes;});

    print BOLD,"OS INFO: ", RESET;
    $ssh->cmd($cmd);

DUC302239: Reading configuration data /home/mtomar/.ssh/config
DUC302239: Reading configuration data /etc/ssh_config
DUC302239: Connecting to 10.254.225.21, port 22.
DUC302239: Remote protocol version 2.0, remote software version Sun_SSH_1.1
DUC302239: Net::SSH::Perl Version 1.34, protocol version 2.0.
DUC302239: No compat match: Sun_SSH_1.1.
DUC302239: Connection established.
DUC302239: Sent key-exchange init (KEXINIT), wait response.
DUC302239: Algorithms, c->s: 3des-cbc hmac-sha1 none
DUC302239: Algorithms, s->c: 3des-cbc hmac-sha1 none
DUC302239: Entering Diffie-Hellman Group 1 key exchange.
DUC302239: Sent DH public key, waiting for reply.
DUC302239: Received host key, type 'ssh-dss'.
DUC302239: Host '10.254.225.21' is known and matches the host key.
DUC302239: Computing shared secret key.
DUC302239: Verifying server signature.
DUC302239: Waiting for NEWKEYS message.
DUC302239: Send NEWKEYS.
DUC302239: Enabling encryption/MAC/compression.
DUC302239: Sending request for user-authentication service.
DUC302239: Service accepted: ssh-userauth.
DUC302239: Trying empty user-authentication request.
DUC302239: Authentication methods that can continue: gssapi-keyex,gssapi-with-mic,publickey,keyboard-interactive.
DUC302239: Next method to try is publickey.
Permission denied at ./fusion_hlcheck_ssh.pl line 22

my $ssh = Net::SSH::Perl->new($_,protocol =>'2',port =>22 ,debug => 1, interactive => 1
    );