package MyModul;

use strict;

sub new {
	my $class = shift;
	my $self = {};
	bless($self, $class);
        #$self->init(@_) # Startparameter nach $self einlesen
	return $self;
}

sub search {
	my $self = shift;
	my $name = shift;
	my $names = {};
	$names->{_NAME_} = $name;
	bless($names);
}

sub get {
	my $names = shift;
        # ich hätte hier gerne noch $self aus new()
	print $names->{_NAME_};
}

1;