There is also Sys::Hostname which provides a platform independent method.

use Sys::Hostname;

my $host = hostname;
[download]

It is one of the core modules