package SpezialObject;

use strict;

use base 'MyObject';

sub doppeldruck {
	my $self = shift;
	
	my $val = $self->{value} * 2;
	print $val . "\n";
}

1;