Why are you using the weird globbing construct:

           while (defined ($buf = <"$message">)) {
[download]

Granted, it could act as a cool filter for weird hostnames that likely won't respond to pings, but I think this should be explained...