$cas = 31; 
while ($cas++ <=58) 
{	 
	$ping = `ping cas$cas| awk '{print \$1}'`; 
	print "ping test=$ping\n"; 
	 
	if ($ping eq "no") 
	{ 
		next; 
	} 
} 
continue  
{ 
	if ($ping ne "no") 
	{ 
	 
# This gets hostname from each server 
	($shostname, $nl) = split(/\n/, `ssh cas$cas "hostname"`); 
	 
# This will get the CPU Utilzation 
	($mpstat, $nl) = split(/\n/, `ssh cas$cas "/usr/bin/mpstat | grep -A 5 "%idle" | tail -1"`); 
	($a,$b,$c,$d,$e,$f,$g,$h,$cpu) = split(/\s+/,$mpstat); 
	$cputil = 100 - $cpu; 
	$cputil1 = sprintf "%.2f", $cputil; 
	#print "$cputil1 \n";	 
	 
# This uses the uptime command to get the load average 
	($uptime, $nl) = split(/\n/, `ssh cas$cas "uptime"`); 
	($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$load) = split(/\s+/,$uptime); 
	($loadavg, $nl) = split(/\,/, $load); 
	#print "$loadavg \n"; 
	 
# This uses the free command to get used and total memory and calculate the utilization		 
	($free, $nl) = split(/\n/, `ssh cas$cas "free -tm"|grep Total`); 
	($a,$total,$used,$free) = split(/\s+/,$free); 
	$mem = ($used / $total) * 100; 
	$memutil = sprintf "%.2f", $mem; 
	#print "$memutil \n"; 
	 
	print "$shostname,$cputil1,$loadavg,$memutil\n"; 
	} 
 
	 
} 
#continue 
#{ 
#	$cas++; 
#}; 
print "done \n";

my ($cpu) = (split(/\s+/,$mpstat))[8];