<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;"># From: asherman@fmrco.com (Aaron Sherman)

sub hostname
{
	local(*P,@tmp,$hostname,$_);
	if (open(P,"hostname 2&gt;&amp;1 |") &amp;&amp; (@tmp = &lt;P&gt;) &amp;&amp; close(P))
	{
		chop($hostname = $tmp[$#tmp]);
	}
	elsif (open(P,"uname -n 2&gt;&amp;1 |") &amp;&amp; (@tmp = &lt;P&gt;) &amp;&amp; close(P))
	{
		chop($hostname = $tmp[$#tmp]);
	}
	else
	{
		die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n";
	}
	@tmp = ();
	close P; # Just in case we failed in an odd spot....
	$hostname;
}

1;
</pre></body></html>