package Test;

sub new{
  my ($class) = @_;
  my $self = [];
  bless $self,$class;
  return $self;
}

sub test{
  print "Hallo";
}

1;