my $swapused=$swap-$result->{$oid_memAvailSwap};
my $totalavail=$realavail+$result->{$oid_memAvailSwap};
+my $realpercent=sprintf("%.0f",($realavail/$realmem)*100);
+my $totalpercent=sprintf("%.0f",($totalavail/($realmem+$swap))*100);
+my $swappercent=sprintf("%.0f",($swapused/$swap)*100);
+
############ convert the results to the desired unit ############
my @resultvar=(\$realmem, \$realavail, \$swap, \$swapused, \$totalavail);
foreach my $varref (@resultvar)
############ compose message ############
$np->nagios_exit(
$np->max_state(@results),
- "Real av: $realavail $unitstr, Total av: $totalavail $unitstr, Swapped: $swapused $unitstr",
+ "Real av: $realavail $unitstr ($realpercent%), Total av: $totalavail $unitstr ($totalpercent%), Swapped: $swapused $unitstr ($swappercent%)",
);