Use AIX::Sysinfo;
...
my $sys = AIX::Sysinfo->new();
my $host = $sys->hostname();