use Gtop;
my $gtop = GTop->new();
my $mem = $gtop->proc_mem($$);

# Now you can use $mem->share / $mem->rss / $mem->vsize