package test;
@EXPORT = qw(new);
sub new
{
 my $self = {};
 bless $self;
 return $self;

}

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

sub test2
{
  my ($self,@messages) = @_;
  print "\n";
  print "Alle Mitteilungen:\n";
  print $_,"\n" for(@messages);
}