Select Code to Download

foreach my $uitem (sort @uphosts) { # sort is for cleanliness...
    print li("$uitem\n"),br;
}

print join br, map li $_, sort @uphosts;