unless (scalar(@downhosts) == 0) { print p,"The following $verbage[3] 
$verbage[2] down: ",br }
foreach my $ditem (sort @downhosts) {
        print li("$ditem"),br;
}