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%)",
      );