our $x;
  my $code = sub { $x = "A" x 10_000_000 };
  showmem("start");
  &$code;
  showmem("allocated");
  undef $x;
  showmem("var freed");
  undef $code;
  showmem("code freed");