#!/usr/bin/perl -w
use strict;
use Linux::MemInfo;

my %meminfo = get_mem_info();

my $total   = $meminfo{'MemTotal'};
my $free    = $meminfo{'MemFree'};
my $buffers = $meminfo{'Buffers'};
my $cached  = $meminfo{'Cached'};

my $really_free  = $free + $buffers + $cached;
my $percent_free = int(100 * $really_free / $total);

print <<"EOM";
Total: $total
Free:  $really_free ($percent_free%)
EOM