Check out GTop which sits on top of libgtop.

my $mem = GTop->new;
print "Total memory: ", $mem->total / 1024, "K\n";
[download]

Edited by planetscape - closed code tag

Originally posted as a Categorized Answer.