Shell Programming and Scripting

#!/usr/bin/perl -w

use Net::SSH::Perl;
use POSIX;

use Term::ANSIColor qw(:constants);
use strict;

my $host="10.0.0.1";
my $user="usr";
my $pass="passwd";
my $cmd ="uname -a";

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


    my $ssh = Net::SSH::Perl->new($host,protocol =>'2',port =>22 );
    $ssh->login($user, $pass);
    $ssh->register_handler("stdout",sub {my ($channel,$buffer) = @_; print $buffer->bytes;
        });
    
    print BOLD,"OS INFO: ", RESET;
    $ssh->cmd($cmd);
    print BOLD,"\nFILESYSTEM INFO:\n",RESET;
    $ssh->cmd('df -h');
    
    ($stdout,$stderr,$stdexit) = $ssh->cmd('ifconfig -a | grep 192.168.35.216');
    
print $stdexit;

Use of uninitialized value $stdout in print at ./perl_ssh.pl line 29.
Use of uninitialized value $stderr in print at ./perl_ssh.pl line 30.