(@downhosts),"  $verbage[3] down",br }
print "There $verbage[0] ",scalar(@uphosts)," $verbage[1] alive",br;

print p,"The following $verbage[1] $verbage[0] alive: \n",br;
foreach my $uitem (sort @uphosts) {
        print li("$uitem"),br;
}