#!/usr/bin/perl -w

use Net::Telnet; 

@nodeip = ("x.x.x.x","x.x.x.x") ;
%node = ("x.x.x.x","node1","x.x.x.x","node2") ;
foreach $nodeip (@nodeip) {
                          $telnet = new Net::Telnet ( Timeout=>10,Prompt=> '/.*@.*/',Errmode=>'die'); 
                          
                          $telnet->open($nodeip); 
                          $telnet->waitfor('/ogin: $/i'); 
                          $telnet->print('user); 
                          $telnet->waitfor('/assword: $/i'); 
                          $telnet->print('passwd'); 
                          print "========================================================\n";
                          print "            PERFORMING HEALTH CHECK ON $node{$nodeip}    \n";
                          print "========================================================\n";
                          
                          $telnet->waitfor('/# $/i');  
                                    
                         print "==================================\n";
                         print "Checking Basic system status::\n";
                         print "==================================\n";
                         @sysinfo1 = $telnet->cmd('uname -a');
                         @sysinfo2 = $telnet->cmd('uptime');
                         @sysinfo3 = $telnet->cmd('who -r');
                         
                         print "@sysinfo1  @sysinfo2  @sysinfo3","\n";
                         }

========================================================
            PERFORMING HEALTH CHECK ON NODE1    
========================================================
==================================
Checking Basic system status::
==================================
SunOS eqm01s13p2 5.9 Generic_122300-34 sun4u sparc SUNW,Netra-CP2300
   11:17am  up 236 day(s),  6:44,  1 user,  load average: 1.51, 1.18, 1.16
     .       run-level 3  Mar 18 04:34     3      0  S

========================================================
            PERFORMING HEALTH CHECK ON NODE2    
========================================================
==================================
Checking Basic system status::
==================================
SunOS eqm01s14p2 5.9 Generic_122300-34 sun4u sparc SUNW,Netra-CP2300
   11:17am  up 217 day(s),  3:19,  3 users,  load average: 0.90, 0.91, 0.99
     .       run-level 3  Apr  6 08:00     3      0  S