Select Code to Download

for my $test (@testlist) {
    if (defined $tref->{$host}{$test}) {
...
        print "\t<th>-</th>\n";
   }
}

 'vnsgnnwwor-gw-1' => {
                         'conn' => {
...
                                     'status' => 'green'
                                   }
                       },

#!/usr/bin/perl -l
use strict;
...
print "$test is ", defined $tref->{$host}{$test} ? "True" : "False";
print "$test=>status is ", defined $tref->{$host}{$test}{status} ? "Tr
+ue" : "False";
print "$test is ", defined $tref->{$host}{$test} ? "True" : "False";

vnsgnnwwor-gw-1 is True
http is False
http=>status is False
http is True