#########################################
our $HOST1 = "somenode.domain.local";
our $PARNODE1 = "4";
#########################################
our $HOST2 = "somenode1.domain.local";
our $PARNODE2 = "4";
#########################################

my @CONNECTCOMMANDS;
        if ( length $HOST1 > 0 ) {
                my $CONNECTCOMMAND1 = "plink.exe -ssh USERNAME\@$HOST1 -pw PASSWORD";
                push (@CONNECTCOMMANDS, "$CONNECTCOMMAND1");
        }
        if ( length $HOST2 > 0 ) {
                my $CONNECTCOMMAND1 = "plink.exe -ssh USERNAME\@$HOST2 -pw PASSWORD";
                push (@CONNECTCOMMANDS, "$CONNECTCOMMAND2");
		}

		


my $CMD = "shownode -s";
my @TEMPHOST;
my $TEMPLOG;
my $OUTPUT;
foreach (@CONNECTCOMMANDS) {
       @TEMPHOST = split /[\s@]+/, $_;
       $TEMPHOST = @TEMPHOST[5];
       $TEMPLOG = "C:\\osit\\tmp\\$TEMPHOST.CHECK_NODE.tmp";
       $OUTPUT = qx{$_ $CMD > "$TEMPLOG"};
       open(file, '<:encoding(UTF-8)', $TEMPLOG)
       or die "Could not open file '$TEMPLOG' $!";
	   my $oknodes=0;
				
        while (my $row = <file>) {             
			if($row =~ /ok/i) {
				$oknodes++;
			}																															
        }

		printf "$TEMPHOST : $oknodes\n";  
}