package CLASS_B;
sub new {
  my $class = shift; # critical here
  bless { @_ }, $class; # blesses to maybe CLASS_A
}
package CLASS_A;
@ISA = qw(CLASS_B);
...
my $object = CLASS_A->new;