Select Code to Download

sub outer {
  my $x;
...
    print "x is $x\n";
  }
}

package Node;

...
}

1;

{
   $cache=new Cache;
...
{
   undef $cache;
}