#!perl -w

use strict;

package initialize;
sub new {

my $class = shift;
my $name = shift;
bless \$name,$class;

}

sub IsFulfilled{ 
my $IsFulfilled = shift;
$$IsFulfilled ;

}

package Method;
use base qw(initialize);


sub checkIsFulfilled {



}

package main;

my $method = Method->new("First Method");
print $method->IsFulfilled("0");