gistfile1.txt

sub     readOnly
{
        my      ($rvRef,$rsRef,$rdRef,$host,$param,$aref) = @_;
        my      ($fail) = 0;


        foreach (0 .. $#$aref)
        {
                if ($opts{'D'} == 1 ){
                        print $aref->[$_], "\n";
                }
                if($aref->[$_] =~ /FAIL\s(.*)/)
                {
                        $$rvRef = 2;
                        $fail = 1;
                        $$rdRef .= sprintf "%-13s - READ-ONLY %s\n", $host, $1;
                }
        }
        if( $fail == 1 )
        {
                $$rsRef .= $host.' ';
        }
}