package BossClass;
  ...
sub new {
  ...
}
sub create {
  my $obj = $a ? Aclass->new(...) : 
            $b ? Bclass->new(...) : 
            Cclass->new(...);
  my $res = $obj->do_it(...);
  ...
}