#!perl -w

use strict;


package initialize;
sub new() {
my $IsFulfilled = 0;
my $self=shift;
my $newInst={};
bless($newInst,$self);

}

package Method;
use base 'initialize';
sub new(){
my $name;
}
	sub checkFulfilled() 
	{
		return $initialize::IsFulfilled ;
	}

my $method = Method -> new();
$method::IsFulfilled = 0;
print $method::IsFulfilled;
$method->checkFulfilled(); # hier taucht der Err auf, obwohl IsFulfilled direkt oben drüber gesetzt wird und in der Konsole auch 0 erscheint...
print $method::IsFulfilled;