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