#!/usr/bin/perl -w

use strict;
use GTop ();

my $gtop = GTop->new;
my $mem = $gtop->mem;

my $total = $mem->total;
my $free  = $mem->free;

if ($free / $total > .5) # Or whatever
{
	# If there's enough free memory, execute your
	# code, etc.
}