package Foo2;
use vars '@ISA';
@ISA = qw(Foo Printer);

package Bar2;
use vars '@ISA';
@ISA = qw(Bar Printer);