sub sandbox {
     my ($this, $that) = @_;
     blarf($this) and mungle($that);
     # etc.
   }