view release on metacpan or  search on metacpan

example1.pl  view on Meta::CPAN

#
#
# Dump the result of all AIX::Perfstat functions
#
#

use strict;
use warnings;

use Data::Dumper;
use AIX::Perfstat;

my $cput = AIX::Perfstat::cpu_total();
print "cpu_total() ", Dumper($cput);

my $diskt = AIX::Perfstat::disk_total();
print "disk_total() ", Dumper($diskt);

my $netift = AIX::Perfstat::netinterface_total();
print "netinterface_total() ", Dumper($netift);