use GTop qw();
my $gtop = GTop->new;
my $before = $gtop->proc_mem($$)->size;

my $mem;
{
    $mem = \("A" x 1024 ** 3);
}

my $after = $gtop->proc_mem($$)->size;

print GTop::size_string($after - $before);