##
Use AIX::Sysinfo;
...
my $sys = AIX::Sysinfo->new();
my $host = $sys->hostname();
##
##
use AIX::Sysinfo_var; # making this up
my $hostname = $sysinfo_hash{hostname}; # making this up
my $version = $sysinfo_hash{aix_version};
##
##
use AIX::Sysinfo_tie;
...
tie %sysinfo, 'AIX::Sysinfo';
my $hostname = $sysinfo{hostname};