#!perl

use strict;
use warnings;
use GTop ();
use Data::Dumper::Concise;

my $gtop = GTop->new(@ARGV);

my $pid = 2518;
my $proc_mem = $gtop->proc_mem($pid);
for ($pid) {
    warn Dumper
    my $share = $proc_mem->share,
    my $size  = $proc_mem->size;
}