Looks good to me too (but that's not saying that much!)

If a print statement is a bit unwieldy I often use join to get it to read better.

print join "\n",
  '<center>',
  '<h3>MSHIP - my status of host IP's</h3>',
  '</center>';
[download]

I would have considered $ping instead of $p.
I prefer a space either side of an = (sometimes you do too, sometimes you don't!).
I think that 2 space tabs use less real estate than 4 if there is deep nesting.

foreach $_(@TMP)
could be written as
for (@TMP)

} else {
Is that what they call cuddled?
It's controversial but I put the else on a new line.

All very minor.