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

}

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

sub test2
{
print "\n";
my $i = 0;
    foreach(@_)
    {
        print "$i : $_\n";
        $i++;  }


}