package Test;

sub new
{
  my $invocant = shift;
  my $class = ref($invocant) || $invocant;
  my $self = {};
  bless($self, $class);
  return ($self);
}

sub test1()
{
  my $self = shift;
  return ('Ich will privat sein');
}

sub test2()
{
  my $self = shift;
  return ('Ich will oeffnetlich sein');
}