
Sys::Hostname - Try every conceivable way to get hostname

use Sys::Hostname;
$host = hostname;

Attempts several methods of getting the system hostname and then caches the result. It tries the the C library's gethostname(). If that fails it dies.
All NULs, returns, and newlines are removed from the result.

David Sundstrom <sunds@asictest.sc.ti.com>
Texas Instruments
XS code added by Greg Bacon <gbacon@cs.uah.edu>