package D;

sub new {
	bless {}, shift;
}

sub doit {
	my $self = shift;
	warn 'D::doit';
}

1;