package B;

sub new {
    my $class = shift;
    return bless {}, $class;
}

sub _what {
   my ($self,$y) = shift;
   $self->_print($y);

}


sub _print {
   my ($self,$x) = shift;
   print "$x\n";

}