sub showmem
{
  system("cat /proc/$$/status |grep '^Vm' |sed -e 's/\$/ ($_[0])/'");
  print "\n"
}

showmem("start");

my $x = "A" x 10_000_000;
showmem("allocated");

undef $x;
showmem("freed");