Select Code to Download

  my $x = "A" x 10_000_000;

  my $x = "AAAAA..[10_000_000 long]..";

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

  perl -DXt -we 'my $l = 100; my $a = "A" x $l;'