package test; 
@EXPORT = qw(new,test,test2); 
sub new 
{ 
  my $self = {}; 
$self->{"hallo"} = ""; 
  bless $self; 
  return $self; 

} 

sub test 
{ 
    test2("Hallo Welt"); 
} 

sub test2 
{ 
    print "0 : $_[0]\n"; 
    print "1 : $_[1]\n"; 
}