Select Code to Download

#!/usr/bin/perl

...

print "Total memory size of current processes: ",
my $size  = $gtop->proc_mem($$)->size, "\n";

#!perl

...
    my $share = $proc_mem->share,
    my $size  = $proc_mem->size;
}