sub test
{
my $self = shift;
$self->test2("Hallo Welt");
}