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