{
   package Base;
   sub m { print("Boo!\n"); }
}

{
   package Child;
   our @ISA = 'Base';
   bless({}, 'Anything')->SUPER::m();  # Boo!
}