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"