Help for this page

Select Code to Download

Select or download this

open my $stat,"<","/proc/self/stat" or die "Can't open /proc/self/stat
+"; 
my ($vsz,$rss)=(split ' ',<$stat>)[22,23];
print "$vsz - $rss\n"