sub s&&box {
     my ($this, $that) = @_;
     blarf($this) && mungle($that);
     # etc.
   }