package initialize;

our $IsFullfilled;

sub new {
   # ...
}

package main;

$initialize::IsFullfilled = 3;
print $initialize::IsFullfilled;