my $username = 'username';
        my $password = 'password';
        
        my $ssh2 = Net::SSH2->new();
        
        
        print $mailfh "\n----------------------------";
        
        print $mailfh "\nData Mover Check For $ipname ($ipaddr)\n";
        
        print $mailfh "----------------------------\n";
        $ssh2->connect("$ipaddr") || die "PROBELM -$!";
        
        $ssh2->auth_password("$username","$password") || die "Username/Password not right";
        
        my $chan = $ssh2->channel();
        
        
        $chan->blocking(0);    
        $chan->exec('/nas/sbin/getreason');
        sleep 3;
        
        while (<$chan>)
        {
        chomp;
        
        next if (/10 - slot_0 primary control station/);
        if ($_ =~ /contacted$/)
        {
            
            print $mailfh "DM is OK: $_\n";
        }
        else
        {
            
            print $mailfh "POSSIBLE DM FAILURE:Please check $ipname ($ipaddr): $_ POSSIBLE DM FAILURE:\n";
        
        
        }