package test;
##########################
sub new {
##########################
	my $class = shift;
	my $self = {};
	
	bless $self, $class;
	return $self;
}

##########################
sub test {
##########################
	my ($self) = shift;
	my @arg = @_;
	
	test2(@arg);
}

##########################
sub test2 {
##########################
	my @messages = @_;
	print "\n";
	print "Alle Mitteilungen:\n";
	print "$_\n" foreach @messages;
}
##########################
1; #Wichtig!!!
##########################