$foo1->bang();
  $foo2->bang();
  { package BAZ; $foo3->SUPER::bang(); }

##</code><code>##

  package QUUX;
  use base qw/ BAR /;
  sub bang { shift->SUPER::bang }