package B;

use base 'A';

sub doit {
	my $self = shift;
	
	warn 'B::doit';
	$self->SUPER::doit();
}

1;