UNIX for Dummies Questions & Answers

Hi Chaps,
Im after some advise with a script i've written however doesnt appear to work how I would like.

Basically I have a perl script which sucessfully pulls an expect script to login to multiple nodes and obtain some output from the nodes (total number of nat ports that are in use for the relivant pool on that node).

What I want to archieve is a list of the pools from each node with the number of ports in use, They if a single nat pool is using less than x number of ports to email me.

Firstly my perl script doesn't seem to output the details as I would like, for each pool i want the line to show the node name, then the port details (as per the below, what you will notice is in the output below the node name appears to be on the line above the port details) possibly due to control characters but not sure how is best to deal with this ?

Script:

Code:

#!/usr/bin/perl -w
use Term::ANSIColor;
use strict;
use constant DEBUG => 1;
my $pool0 = "";
my $pool1 = "";
my $filename = "list.txt";
open(my $fh, "<", $filename) or die "couldn't read file";
while (my $line = <$fh>){
        for (`../user/test2.sh $line`) {
                                if (/pool0\s\S+\s+\S+\s+\S+\s+(\S+)/) {
                                        $pool0 = $1;
                                print color("red"), "$line pool0 ports in use $pool0\n", color("reset");
                                }
                                if (/pool1\s\S+\s+\S+\s+\S+\s+(\S+)/) {
                                        $pool1 = $1;
                                print color("red"), "$line pool1 ports in use $pool1\n", color("reset");
                                }

                        }
}
exit 0;

Output with new lines between node name and value although I want it all in one line.

Code:

RN001
 pool0 ports in use 415963
RN001
 pool1 ports in use 425610
RB001
 pool1 ports in use 323477
RB001
 pool0 ports in use 325010

Also could anyone help in regards to how i can I check multiple nat pool values that the script puts into variables (pool0, pool1 etc) to send an email to me if any of them fall below a certain number of ports in us.

I want an email on a per node basis rather than per pool, It should only generate an email if it falls below the configured value.

Thanks for the help