view release on metacpan or  search on metacpan

t/get_sysinfo.t  view on Meta::CPAN

		proc_type
		firmware_ver	
		sys_arch
		lpar_name
		lpar_id   
		kernel_type
			/;

ok( defined $hash{"$_"}, "$_" ) foreach @items;

print "=================================================\n";
print "$_ = $hash{$_}\n" foreach @items;