package MyObject;

use strict;

sub new {
	my $pkg = shift;

	my $self = {value => 42};
	return bless ($self, $pkg);
}

sub druck {
	my $self = shift;
	print $self->{value} . "\n";
}

1;